Problema con Stringlist

[[maeyanes]]

Hola...

Un ejemplo usando solo un TStringList:

Código Delphi [-]
Strings := TStringList.Create;
try
  Strings.LoadFormFile('archivo.txt');
  Strings.DelimitedText := Strings.Text;
  Strings.Delimiter := '|';
  Strings.StrictDelimiter:= True;
  // ...
  stg.cells[i,j]:=Strings[0]
finally
  Strings.Free
end

Esto no lo he probado, pero te debería funcionar bien.


Saludos...