Cita:
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