Eliminar el espacio como delimiter por defecto

[[egostar]]

Empezado por jhonny

Otra forma de como lo puedes hacer es la siguiente:

Código Delphi [-]
 
procedure TForm2.Button1Click(Sender: TObject);
var
  Linea: String;
begin
  Memo1.Lines.LoadFromFile('C:\Desarrollo\TDelphi\SGP\Documentos\Base.csv');
  Memo2.Clear;
  for Linea in Memo1.Lines do
  begin
    ExtractStrings([';'], [' '], PCHAR(Linea+';'+StringOfChar('=', 17)), Memo2.Lines);
  end;
end;

Hey, eres mi héroe amigo jhonny, funciona perfecto, te debo una

No entiendo como funciona eso que hiciste , pero lo voy a analizar, esta muy interesante

Salud OS