var
SL: TStringList;
s: koord;
i: geheel;
iStart: geheel;
iEnd: geheel;
col.: geheel;
begin
SL: = TStringList.Create;
probeer
sl.LoadFromFile („C:\export _EMSC.csv“);
StringGrid1.RowCount: = SL. Telling;
StringGrid1.FixedCols: = 0;
StringGrid1.ColCount: = 9;
voor I: = 0 aan Pred (SL. Telling)
begin
s: = SL [I] + „; “;
col.: = 0;
iStart: = 1;
iEnd: = 1;
terwijl (iEnd <>
|