名前
題名
▼ 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; > >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link