var
sl: TStringList;
s: corda;
i: inteiro;
iStart: inteiro;
iEnd: inteiro;
coluna: inteiro;
começar
sl: = TStringList.Create;
tentativa
sl.LoadFromFile (“C:\export _EMSC.csv ");
StringGrid1.RowCount: = sl. Contagem;
StringGrid1.FixedCols: = 0;
StringGrid1.ColCount: = 9;
para i: = 0 a Pred (sl. A contagem) faz
começar
s: = sl [i] + “; ”;
coluna: = 0;
iStart: = 1;
iEnd: = 1;
quando (iEnd <>
|