création d'un structRésolu

Question

Bonjours tout le monde,
voila j'ai une question. es-t-il possible de cr&#233;er une structure chez delphi comme dans le C .
exemple:
toto.nom
toto.premon

en vous remerciant

cptpingu · Accepted Answer

oui.comme ceci:



type

  MonType = record

           nom: string;

           prenom: string;

  end;

DRJEROME · Answer

oui comme dit CptPingu :

type ToTo= record nom: string; prenom: string[20]; end;

J'ai juste modifié le string car il faut lui donner une taille exacte (j'ai mis "20" mais on met la taille qu'on veut si on veut plus long ou plus court) ...ou alors on peut mettre un shorstring mais ça paraît excessif juste pour un prénom DrJerome

DRJEROME · Answer

j'ai oubli&#233; de corriger, mais pour "nom" c'est pareil il faut donner la taille exacte du string

DrJerome

jlen100 · Answer

salut 

--> Drjerome la declaration de longueur pour un string dans un
record n'est pas obligatoire dans ce cas la variable  string est
un pointeur sur un variable dynamique (m&#234;me si c'est transparent pour
l'utilisateur)

@+

jlen

cs_Delphiprog · Answer

Pour mettre tout le monde d'accord : tant que vous travaillez en m&#233;moire, vous n'&#234;tes pas oblig&#233;s de sp&#233;cifier la taille des chaines dans la structure.
En revanche, si vous devez utiliser un stockage sur disque, l&#224; &#231;a devient obligatoire surtout au moment des op&#233;rations de lecture...

<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Cirec · Answer

--> Delphiprog : Si tu enregistres par l'interm&#233;diaire d'un FileStream tu n'es pas oblig&#233; de sp&#233;cifier la taille du string ce qui est bien plus pratique pour &#233;crire des String de toutes tailles.
Conclusion obligatoire pas obligatoire tout d&#233;pend de la m&#233;thode utilis&#233;. Donc on a tous raison 



@+
Cirec

Cirec · Answer

je vous donne un petit exemple de ce que j'avance :


procedure TForm1
.WriteToStreamClick
(Sender
: TObject
);
Var FS     
: TFileStream
;
       Taille 
: byte
;
       Str      
: 
String;
begin
  Try
    FS 
:=  TFileStream
.Create
('Teste.dat', fmCreate 
 or  fmOpenReadWrite
);
    Taille 
: = Length
(Edit1
.Text
);  // on r&#233;cupere sa taille
    FS
.Write
(Taille
, SizeOf
(Byte
)); // on l'&#233;cris 
    Str 
:=  Edit1
.Text
;                          // on recupere le texte 
    FS
.Write
(Pointer
(Str
)^,Taille
);  // on l'&#233;cris
  finally
    FS
.Free;                                     // comme toujours on lib&#232;re la m&#233;moire

   End ;
    Edit1
.Clear
;  // on efface le contenu de l'Edit
end;


procedure TForm1
.ReadFromStreamClick
(Sender
: TObject
);
Var FS     
: TFileStream
;
       Taille : byte
;
       Str      
: 
String;
begin
  Try
     FS 
: = TFileStream
.Create
('Teste.dat', fmOpenReadWrite
);
     FS
.Read
(Taille
, SizeOf
(Byte
));  // on commence par lire la taille
     SetLength
(Str
, Taille
);               // on l'affecte &#224; Str
     FS
.Read
(Pointer
(Str
)^,Taille
);  // on lis le contenu
   finally
     FS
.Free;                                       // comme toujours on lib&#232;re la m&#233;moire

   End;
     Edit1
.Text 
:= Str
; // et on affecte le Str &#224; Edit
end;

Voil&#224; comme &#231;a vous avez la th&#233;orie et la pratique



@+
Cirec

cyberleon · Answer

mercie bien pour toutes ces reponses.j'ai essay&#233; et ca marche.

cs_Delphiprog · Answer

Ok avec toi Cirec. Mais quid si tu veux enregistrer un ou plusieurs records ?

Exemple de code 

Soit un type enregistrement d&#233;fini ainsi
type
  TMyRecord =  record
    Firstname, LastName :  string [30];
    BirthDay : TDateTime;
    Age: integer;
  end;

Soit le code qui l'exploite pour la partie enregistrement et lecture sur disque :

const
  FileName  = 'records.Dat';

{Initialise les valeurs d'un enregistrement avec le contenu
des contr&#244;les de saisie}
procedure TForm1.SetRecordValues(var ARecord: TMyRecord);
begin
with ARecord do
begin
    FirstName :=  edFirstName.Text;
    LastName := edLastName.Text;
    TryStrToDate(edBirthDay.Text, BirthDay);
    Age := StrToIntDef(edAge.Text, 0);
   end ;
end;

{Remplit les contr&#244;les de saisie avec les valeurs
d'un enregistrement}
procedure TForm1.GetRecordValues(const ARecord: TMyRecord);
begin
with ARecord do
begin
    edFirstName.Text : = FirstName;
    edLastName.Text :=  LastName;
    try
      edBirthDay.Text := DateToStr(BirthDay);
    except
      edBirthDay.Text := 'Date incorrecte';
     end ;
    edAge.Text : = IntToStr(Age);
  end;
end;

procedure TForm1.btnWriteToStreamClick(Sender: TObject);
var
  Stream: TFileStream;
  MyRecord: TMyRecord;
begin
  SetRecordValues(MyRecord);

  Stream :=  TFileStream.Create(FileName, fmCreate  or  fmShareDenyNone);
  try
    Stream.Write(MyRecord, SizeOf(MyRecord));
  finally
    Stream.Free;
  end; {try..finally}

end;

{Efface le contenu de tous les contr&#244;les d'&#233;dition}
procedure TForm1.ClearEdits;
var
  i: integer;
begin
for i : = 0to ComponentCount - 1do
if Components[i] is TEdit then
      TEdit(Components[i]).Clear;
end;

procedure TForm1.btnLoadFromStreamClick(Sender: TObject);
var
  Stream: TFileStream;
  MyRecord: TMyRecord;
begin
  ClearEdits;
  
  Stream :=  TFileStream.Create(FileName, fmOpenRead  or  fmShareDenyNone);
  try
    Stream.Read(MyRecord, SizeOf(MyRecord));
  finally
    Stream.Free;
  end; {try..Finally}

  GetRecordValues(MyRecord);
end;

Attention : ce code n'est valable que pour l'enregistrement d'un seul record dans le fichier.

Bon, ben je pense qu'on a fait le tour de la question maintenant. 

<HR color =#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Création d'un struct

9 réponses

Votre réponse

Discussions similaires