喫茶XRAY [Mr.XRAY掲示板]

『Delphi で CSV を読む込むには』の質問に対するレスです．
CSV は comma Separated Value (カンマで区切れた値) の略ですが，文字列ですから，
それを読み込むというのは，例えば，以下のようにして読み込めます．
えっ !? 違う ? 何が ?

//=============================================================================
//  CSVを読み込む
//  どこに?  TEditのTextプロパティに
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LCSVText : string;
begin
  LCSVText := 'ABC,日本語,文字列';
  Edit1.Text := LCSVText;
end;

//=============================================================================
//  CSVを読み込む
//  どこに?  メモリストリームに
//  メモリストリームに読み込むには
//  Write, WriteBufffer 等でメモリストリームに書き込む
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LCSVText   : string;
  LMemStream : TMemoryStream;
begin
  LCSVText := 'ABC,日本語,文字列';

  LMemStream := TMemoryStream.Create;
  try
    LMemStream.WriteBuffer(LCSVText[1], Length(LCSVText) * SizeOf(Char));
  finally
    FreeAndNil(LMemStream);
  end;
end;