『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;
 |