Frage zu records???

[Loehni]

Hallo, hier ist mein Vorschlag:

Delphi-Quellcode:

type
    Daten = Array[1..30] of Record
           datensatz: String;
           saeulennummer: String;
           libelle: String;
           ergebnis: String;
           soll: String;
           ist: String;
           datum: String;
           zeit: String;
    end;

Var i       : Integer;
    Mydaten : Daten;

{  Alles zurücksetzen }
Fillchar(myDaten,Sizeof(myDaten),0);

{oder nur einzelne Datenelemente }
For i := 1 to 30 Do
  Fillchar(Mydaten[i],Sizeof(Mydaten[i]),0);

{oder felder im Record einzeln  ohne With }

For i := 1 to 30 Do
  Begin
  Mydaten[i].datensatz      :='';
  Mydaten[i].saeulennummer  :='';
  Mydaten[i].libelle        :='';
  Mydaten[i].ergebnis       :='';
  Mydaten[i].soll           :='';
  Mydaten[i].ist            :='';
  Mydaten[i].datum          :='';
  Mydaten[i].zeit           :='';
  End;

{oder felder im Record einzeln  mit With }

For i := 1 to 30 Do With myDaten[i] Do
  Begin
  datensatz      :='';
  saeulennummer  :='';
  libelle        :='';
  ergebnis       :='';
  soll           :='';
  ist            :='';
  datum          :='';
  zeit           :='';
  End;

end.

Gruß
Andreas

[edit=SirThornberry]Delphi-Tags gesetzt - Nächstes mal bitte selbst machen. Mfg, SirThornberry[/edit]