Hola estoy necesitando extraer cadenas de un archivo plano donde el formato es el siguiente
xx|xxxx|xx xxxx xxxxx x|xxx
xx|xxxx|xxxx xxxx xxxx |xxx
xx|xxxx|xxx xxxx xxx |xxx
Y mi código es este
Código Delphi
[-]
procedure TfrmImportacion.BitBtn1Click(Sender: TObject);
var
i, j : Integer;
cadena : String;
slFile, slLinea : TStringList;
begin
slFile := TStringList.Create;
slLinea := TStringList.Create;
slLinea.Delimiter:= #124;
slFile.LoadFromFile('D:\wpaboent_p14.txt'); for i:=0 to slFile.Count-1 do begin
cadena:='';
slLinea.DelimitedText:=slFile[i];
for j:=0 to slLinea.Count-1 do begin
cadena := cadena+' '+slLinea[j];
showmessage(cadena);
end; end;
El problema es que en vez de leer solamente por delimitador también lee por espacio en blanco, y no sé como hacer para que solo respete el delimitador | = #124
Desde ya agradezco a quien pueda ayudarme
Saludos Velia