各位高手，求助如何用delphi5 讀寫csv檔案，謝謝了
EG.
NAME AGE LIVE IN_DATE OUT_DATE
'CHOW', '27','CHINA',' 28-04-2011','28-04-2012'
uj5u.com熱心網友回復：
CSV通常是以逗號分隔值的文本檔案。也有的分隔符是指定的字符。因此，讀取它，可以按文本檔案讀取，再逐行處理：
procedure TForm1.btn1Click(Sender: TObject);
var sFile,sLine: TStrings;
r,c:Integer;
begin
sFile := TStringList.Create;
sFile.LoadFromFile('d:\1.txt');
sLine := TStringList.Create;
for r:=0 to sFile.Count-1 do begin
sLine.CommaText := sFile[r];
for c:=0 to sLine.Count-1 do begin
mmo1.Lines.Add(sLine[c]);
end;
end;
sLine.Free;
sFile.Free
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/32584.html
標籤：VCL組件開發及應用
上一篇：分享1個十進制轉N進制的功能。