procedure TForm1.Button1Click(Sender: TObject);
var
lista:TStringList;
lista1:TStringList;
begin
lista:=tstringlist.Create;
lista1:=tstringlist.Create;
opendialog1.Filter:='File (*.*)|*.*';
opendialog1.Execute;
lista.LoadFromFile(opendialog1.FileName);
lista1.Delimiter :='!';
lista1.QuoteChar :=' ';
lista1.DelimitedText :=lista.Text;
listbox1.Items.AddStrings(lista1);
end;
Questo è il codice che ho scritto ecco il risultato:
da :I!061110!1!00.00!0!000000000!REPARTO 1

a:
I
061110
1
00.00
0
000000000
REPARTO
1
Il problema sta nel fatto che dopo lo spazio mi porta il testo alla riga successiva della lista come devo fare per far si che il testo separato da spazi compaia sulla stessa riga??grazie a tutti ciao!!