var
SL: TStringList;
s: Schnur;
I: ganze Zahl;
iStart: ganze Zahl;
iEnd: ganze Zahl;
Spalte: ganze Zahl;
anfangen
SL: = TStringList.Create;
Versuch
sl.LoadFromFile („C:\export _EMSC.csv ");
StringGrid1.RowCount: = SL. Zählimpuls;
StringGrid1.FixedCols: = 0;
StringGrid1.ColCount: = 9;
für i: = 0 zu Pred (SL. Zählimpuls) tun
anfangen
s: = SL [i] + „; “;
Spalte: = 0;
iStart: = 1;
iEnd: = 1;
während (iEnd <>
|