varietà
SL: TStringList;
s: stringa;
i: numero intero;
iStart: numero intero;
iEnd: numero intero;
colonna: numero intero;
cominciare
SL: = TStringList.Create;
prova
sl.LoadFromFile (“C:\export _EMSC.csv ");
StringGrid1.RowCount: = SL. Conteggio;
StringGrid1.FixedCols: = 0;
StringGrid1.ColCount: = 9;
per la i: = 0 a Pred (SL. Il conteggio) fa
cominciare
s: = SL [i] + “; „;
colonna: = 0;
iStart: = 1;
iEnd: = 1;
mentre (iEnd <>
|