Discussion :

[gtaman]

Bonjour,

Je souhaiterai sauvegarder (et le charger par la suite ) un Memo dans un fichier texte.
Voila ce que j'ai mis pour le moment :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.SauvegarderMemo(Sender: TObject);
begin
MemoInstruction.Lines.SaveToFile(instructionmemo);
end;
 
 
procedure TForm1.ChargerMemo(Sender: TObject);
begin
MemoInstruction.Lines.LoadFromFile(instructionmemo);
end;

Or lors de la compilation j'ai ce message "[Error] UnitPrincipale.pas(418): Undeclared identifier: 'instructionmemo'"

Il est vrai que je ne l'ai déclaré nulle part car je n' ai aucune idée où le déclarer. Quelqu'un peut-il m'aider svp ?
Je vous remercie.

[Qwazerty]

SAlut
Ou declare tu instructionmemo ?
Si tu veux que ton fichier se nome comme ca il faut que tu mette le tout entre guillement
'instructionMemo.sav' tu mets bien sur l'extension que tu veux

A++
Qwaz

[gtaman]

justement je le déclarais nulle part car je savais pas ou le déclarer et comment !
Cool ça marche, merci beaucoup, bon week end !

[Qwazerty]

N'oubli pas le tag

A++
Bon WE
Qwaz

[ero-sennin]

Salut,

Or lors de la compilation j'ai ce message "[Error] UnitPrincipale.pas(418): Undeclared identifier: 'instructionmemo'"

Il est vrai que je ne l'ai déclaré nulle part car je n' ai aucune idée où le déclarer. Quelqu'un peut-il m'aider svp ?
Je vous remercie.

Hé bien, soit tu déclare une constante "instructionmemo" qui contiendra le chemin de ton fichier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
const instructionmemo='c:\toto.txt';
 
var
  Form1: TForm1;

Soit, tu déclares une variable en locale car tu n'en auras pas besoin dans le reste de ton programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.BtnSauvegarderClick(Sender: TObject);
var
instructionmemo:string;
begin
  instructionmemo:='c:\toto.txt';
  Memo1.Lines.SaveToFile(instructionmemo);
end;

Ou soit tu n'utilises pas de variables et tu mets directement le chemin de ton fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.BtnSauvegarderClick(Sender: TObject);
begin
  Memo1.Lines.SaveToFile('c:\toto.txt');
end;

En espérant d'avoir aidé.
A+

[EDIT] Grillé