Anzahl von Einträgen eines Arrays im Record ermitteln ?

[Cyberbob_at_tot]

Hallo zusammen,
ich habe das Problem das ich aus einem Array das in einem Record steckt, die anzahl der einträge brauche!
Ich will eine FOr schleife die von 0 bis anzahl der einträge zählt.

Delphi-Quellcode:

For x:=0 to lenght(Liste[nr].Einträge) do....

Habe es mit lenght und mix High versucht beides gibt aber nicht das ergebniss das ich brauche!

BIG THX

Cyberbob

[jim_raynor]

Erstmal heisst es length. Paar mehr Infos brauchen wir schon. Wie sieht der Record aus. Was möchtest du eigentlich wissen, wenn dir Length nicht das richtige zurückgibt?

[Pseudemys Nelsoni]

Length/High geht beides, wahrscheinlich hast du nur was faalsch gemacht, aber ohne Code kann man das leider nicht sagen.

[Cyberbob_at_tot]

OK sorry! haben sich mal wieder Rechtschreibfehler eingeschlichen!

der Record sieht so aus!

Delphi-Quellcode:

Type
TListe = Record
LS: String;
Datum:String;
Labels: array of String;
end;


Liste: array of Tliste;

die Vorschleife steht ja schon oben!

Habe mir mal alles per Showmessage anzeigen lassen, aber es kommt eine viel höhere Zahl als eigentlich drin sind! bei 5 Einträgen komme bei length 13 und bei Heigh 12.

Ist es denn richtig das ich bei...

Delphi-Quellcode:

High(Liste[nr].Labels)

...die anzahl der einträge im Array von Labels bekomme ?

[Cyberbob_at_tot]

Ach man, ich habe bei einer anderen Procedure einen fehler gemacht!

Es ist richtig das

length

die anzahl der einträge angeibt.

mein Fehler!

sorry!

[Airblader]

Naja, in meinem Programm zZ habe ich das selbe, ich habe ein record mit array.

auslesen tu ichs bei mir so:

Delphi-Quellcode:

length( TProduktion[n].Maschinen );

(Sind nur andere Bezeichnungen).

Wenn du nun die Anzahl aller haben willst, machst du es so:

Delphi-Quellcode:

var
 i: integer;

...

for i := 0 to high( TProduktion ) do
begin
  Form1.ListBox1.Items.Add( IntToStr(length( TProduktion[i].Maschinen )) );
end;

Das würde dann alles in einer Listbox anzeigen

air

[Cyberbob_at_tot]

Danke Airblader,
hat mir geholfen und nun gehts auch richtig!