delphi‎ > ‎

csvを容易に扱う

2010/01/28 12:27 に いつかはちょうになる が投稿
delphiの大きな特徴VCLには多くの便利なライブラリが含まれている。
中でもTStringListクラスは使い勝手が良すぎて困るくらい。

以下のサンプルはstrlItemsの中に1レコード分の分割された値が格納される。

var
  i:Integer;
  strlLines: TStringList;
  strlItems: TStringList;
begin
  strlLines:=TStringList.Create;
  strlItems:=TStringList.Create;
  try
    strlLines.LoadFromFile('ファイルパス');
    for i:=0 to strlLines.Count-1 do
      begin
        strlItems.CommaText:=strlLines[i];

      end;
  finally
    strlLines.Clear;
    strlLines.Free;
    strlItems.Clear;
    strlItems.Free;
  end;
end;
Comments