procedure CsvToGrid(Grid:TStringGrid);
var
CsvData: TStringList;
RowData:String;
ARow,ACol: Integer;
CommaPos:Integer;
begin
CsvData := TStringList.Create;
try
CsvData.LoadFromFile('shuju\test.csv');
form1.grid1.RowCount:=csvdata.Count+1;
form1.Edit1.Text:=inttostr(csvdata.Count);
for ARow := 0 to CsvData.Count - 1 do
begin
ACol := 0;
RowData := CsvData.ValueFromIndex[ARow];
CommaPos := Pos(',', RowData);
while (CommaPos > 0) do
begin
Grid.Cells[ACol+1, ARow+1] := Copy(RowData, 1, CommaPos - 1);
RowData := Copy(RowData, CommaPos + 1, Length(RowData) - CommaPos);
CommaPos := Pos(',', RowData);
ACol := ACol + 1;
end;
end;
finally
CsvData.Free;
end;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/15929.html
標籤：語言基礎/算法/系統設計
上一篇：色彩豐富度定義 計算 排序 比較！！求圓線圈經過的色彩豐富度
下一篇：Linux虛擬機打不開