Estimados, estoy teniendo un problema para leer un archivo csv y separar por ; (punto y coma) en distintos TListbox.
El problema es que existen espacios en blanco y los considera como separador.
Adjunto código.
Favor su ayuda.
Código Delphi
[-]
var
csv : TStringList;
i : Integer;
begin
csv := TStringList.Create;
if opendialog1.Execute then
csv.LoadFromFile(opendialog1.FileName);
for i := 0 to csv.Count -1 do
begin
ProgressBar1.Position := i;
listbox1.Items.Add(csv.Strings[i]);
with TStringList.Create do
begin
QuoteChar := ' ';
Delimiter := ';';
DelimitedText:= csv.Strings[i];
StrictDelimiter := true;
listbox2.Items.Add(Strings[0]);
listbox3.Items.Add(Strings[1]);
listbox4.Items.Add(Strings[2]);
end;
end;
end;