دخول

**TF6M**

السلام عليكم

كود :
procedure TForm1.Button1Click(Sender: TObject);

type TAdresse =record
     nom:string[100];// une chaine de caractères de long max 100
     age:integer;
     MonFichier:TextFile;//1
     end;
var
  Adresse: TAdresse;
  FichierAdresse:File of TAdresse;
  i:integer;
begin
  If SaveDialog1.Execute then
  begin
    AssignFile(FichierAdresse,SaveDialog1.FileName);
    ReWrite(FichierAdresse);
    For i:=1 to 10 do
    begin
      Adresse.nom:='toto';
      Adresse.age:=12;
      //2
      AssignFile(Adresse.MonFichier,'C:\Data.abs');
      ReSet(Adresse.MonFichier);

      Write(fichierAdresse,adresse);
      //3
      CloseFile(Adresse.MonFichier);
    end;
    CloseFile(FichierAdresse);
  end;
end;

أو :

كود :
procedure TForm1.Button1Click(Sender: TObject);

type TAdresse =record
     nom:string[100];// une chaine de caractères de long max 100
     age:integer;
     MonFichier:TStringList;//1
     end;
var
  Adresse: TAdresse;
  FichierAdresse:File of TAdresse;
  i:integer;
begin
  If SaveDialog1.Execute then
  begin
    AssignFile(FichierAdresse,SaveDialog1.FileName);
    ReWrite(FichierAdresse);
    For i:=1 to 10 do
    begin
     With Adresse Do
      Begin
       nom:='toto';
       age:=12;
       MonFichier:= TStringList.Create;
       MonFichier.LoadFromFile('C:\Data.abs');
       MonFichier.Free;
      End;
      Write(fichierAdresse,adresse);
    end;
    CloseFile(FichierAdresse);
  end;
end;

بالتوفيق,,

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة