{
  with〜do文中でインスタンスを作成することで
  ローカル変数の宣言不要でクラスが使えます
  変数宣言部がすっきりします
}

procedure TForm1.Button1Click(Sender: TObject);
begin
  {ローカル変数を宣言しなくてもTStringListが使えます}
  with TStringList.Create do
  try
     {Edit1のカンマ区切りの文字列から１列目を取り出す例}
     CommaText:=Edit1.Text;
     ShowMessage(Strings[0]);
  finally
     Free;
  end;
end;


97/11/27(Thu) 11:07pm  VEJ04660 ＫｅＹ

Original document by ＫｅＹ          氏 ID:(VEJ04660)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。