florenth
Messages postés1023Date d'inscriptiondimanche 1 août 2004StatutMembreDernière intervention17 août 2008
-
5 août 2004 à 19:40
florenth
Messages postés1023Date d'inscriptiondimanche 1 août 2004StatutMembreDernière intervention17 août 2008
-
6 août 2004 à 15:36
Imaginez une fonction tres simple :
function Transfert(memo : TMemo) : TStrings;
var
i : integer;
begin
for i:=0 to memo.Lines.Count - 1 do
result.Add(memo.Lines.Strings[i]);
end;
lors de la compilation OK mais lorqu'on l'appelle il y a violation d'acces
L'erreur se passe sur la ligne
result.Add(memo.Lines.Strings[i]);
J'avoue que je n'y comprends rien
Ceci est un exemple je sais qu'il y a plus simple pour faire ceci.
Please help me !!!!!!!!!!!!
Avis au(x) mewmaster(s) : Il est impossible de mettre du code dans une question ni de mettre un smiley
Si tu ne te plantes pas ......
tu ne poussera jamais
japee
Messages postés1727Date d'inscriptionvendredi 27 décembre 2002StatutModérateurDernière intervention 6 novembre 20218 5 août 2004 à 22:58
Question particulièrement intéressante, on est comme qui dirait dans le coeur d'un sujet sensible et délicat...
Je ne suis pas assez expert pour tout expliquer, en particulier ce qui différencie TStringList et son ancêtre TStrings, ainsi que leurs emplois respectifs.
Je me contenterai de te soumettre le code suivant :
function Transfert(Memo: TMemo): TStrings;
var
i: Integer;
begin
Result := TStringList.Create;
for i := 0 to memo.Lines.Count - 1 do
Result.Add(Memo.Lines.Strings[i]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Assign(Transfert(Memo1));
Transfert(Memo1).Free;
end;