Bjr, j'ai un problem au moment du lecture de mon fichier.
je veux donc enregistrer tout ce k'un utilisateur tappe dans 4 labels diférents
et les aficher dans un memo...ca ne fonctionne pas...

procedure TForm7.ButtonClickBackClick(Sender: TObject);
begin
form7.hide;
form3.show;
end;

procedure TForm7.Button1Click(Sender: TObject);
var
Bestand12 : TextFile;
bestand13 : TextFile;
Bestand14 : TextFile;
bestand15 : TextFile;






begin

AssignFile(Bestand12,'C:\FanClubName.txt');
if not FileExists('c:\NameFanClubName.txt')
then rewrite(bestand12)

else append(bestand12);
rewrite(bestand12);
Write(Bestand12,Form7.EditFanClubName.Text);

CloseFile(Bestand12);

AssignFile(Bestand13,'C:\FanClubAdresse.txt');
if not FileExists('c:\FanClubAdresse.txt')then rewrite(bestand13)
else append(bestand13);
rewrite(bestand13);
Write(Bestand13,Form7.EditFanClubAdresse.Text);

CloseFile(Bestand13);



AssignFile(Bestand14,'C:\FanClubAdresse2.txt');
if not FileExists('c:\NameFanClubAdresse2.txt')
then rewrite(bestand14)

else append(bestand14);
rewrite(bestand14);
Write(Bestand14,Form7.EditFanClubAdresse2.Text);

CloseFile(Bestand14);

AssignFile(Bestand15,'C:\FanClubMessage.txt');
if not FileExists('c:\FanClubMessage.txt')then rewrite(bestand15)
else append(bestand15);
rewrite(bestand15);
Write(Bestand15,Form7.EditFanClubMessage.Text);

CloseFile(Bestand15);







showmessage('You are Now a Member of the FanClub PNK');





end;

var
FanClubName : string;
L:string;

begin

begin
//Memo2.clear; // efface toutes les lignes du mémo
AssignFile(Bestand12,'C:\FanClubName.txt'); //A partir de maintenant, F désigne le fichier portant comme nom le nom récupéré par OpenDialog1
Reset(Bestand12); // ouvre le fichier F (F doit déjà exister)
while not EOF(Bestand12) do // tant que l'on est pas arrivé à la fin du fichier
begin
Readln(Bestand12,L);// lit ligne du fichier et la met dans L puis se positionne sur la ligne suivante
MemoFanClub.Lines.add(L); //Rajoute le contenu de L à la fin du mémo
end;
CloseFile(Bestand12); // ferme le fichier
end;
end;