名前
題名
▼ Mr.XRAYさん > > http://madia.world.coocan.jp/cgi-bin/DelphiBBS/wwwlng.cgi?print+201808/18080007.txt > > repeat > dec(E) // 最後に ; がないとエラー > H[E]=''; // C, C++ と違って = ではなく := > unitl E<=-1; // unit1 ではなく until > > 上のコードのようにするならこんな感じでしょう． > > //============================================================================= > // 質問者が提示したコードを修正して実際に動作確認可能コードにしたもの > // 小さなコードでも手抜きはしないでコピペで動作確認可能にする > // 1 文字の変数名はコード内の検索の時に不便 > // repeat 文を使用している意味については不明 > //============================================================================= > procedure TForm1.Button1Click(Sender: TObject); > {$RANGECHECKS ON} > > var > H : array of string; > E : Integer; > begin > SetLength(H, 5); > > E := High(H); > repeat > H[E] :=''; > dec(E); > until E < Low(H); > > {$RANGECHECKS OFF} > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link