Parsear texto con TString

[[nlsgarcia]]

avechuche,

Empezado por avechuche

...agrego los valores correspondientes a las columnas de mi ListView...El problema esta que siempre me agrega la primer linea del ".txt"...

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   i,j : Integer;
   StrList : TStringList;

begin

   ListView1.ViewStyle := vsReport;
   ListView1.Clear;

   with TStringList.Create do
   try
      LoadFromFile('ARCHIVO.TXT');
      StrList := TStringList.Create;
      for i := 0 to Count-1 do
      begin
         ExtractStrings(['|'], [], PChar(Strings[i]), StrList);
         with ListView1.Items.Add do
         begin
            SubItems.Add(StrList.Strings[0]);
            SubItems.Add(StrList.Strings[1]);
            StrList.Clear;
         end;
      end;
      StrList.Free;
   finally
      Free;
   end;

end;

El código anterior es una variante del sugerido en el Msg #5 adaptada a un control TListView.

Espero sea útil

Nelson.

[avechuche]

Aaaaa mira vos asi se hace mas cortito! Muchas gracias gente por la ayuda. Ahora achico codigo como loco