Delphi - Come Caricare File Pesante?

Forum - Delphi - Come Caricare File Pesante?

kriptos (Normal User)
Newbie

Messaggi: 9
Iscritto: 16/03/2009

Postato alle 7:40
Giovedì, 19/01/2012

Salve avevo l'esigenza di caricare un file testo di 5mb, ma con il memo non sono riuscito? Cosa mi consigliate???

Grazie... :k:

smanettone83 (Normal User)
Pro

Messaggi: 124
Iscritto: 20/10/2010

Postato alle 16:21
Giovedì, 19/01/2012

prova ad usare le variabili Tstringlist;

Ciao smanettone83 sbaglio qualcosa nel codice, mi potresti fare qualche esempio? Grazie!!! - kriptos - 19/01/12 22:09

smanettone83 (Normal User)
Pro

Messaggi: 124
Iscritto: 20/10/2010

Postato alle 2:08
Venerdì, 20/01/2012

function CaricaTxt(Txt:string):string;
var
s:TStringList;
begin
s:= TStringlist.create;
s.loadFromFile(Txt);
result:= s.text;
s.free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage(caricatxt('percorsoMioTxt'));
end;

Ultima modifica effettuata da smanettone83 il 20/01/2012 alle 2:08

Ti ringrazio!!! - kriptos - 23/01/12 04:49

pollici un su mi raccomando ;) - smanettone83 - 23/01/12 10:04