Länge eines Arrays auslesen

[Fussel9]

Hilfe :| :shock:

ich hab nen Array, kann aber seine Länge nicht auslesen... hab aber auch schon ewig nicht mehr mit arrays gearbeitet, hab ich irgendwo nen fehler gemacht, was vergessen?
normaler weise müsste ich doch IrgendeinArray.getLength machen könn... :wall:

Delphi-Quellcode:

UNIT mtlreggramm;

interface

//--------------------  ggf Uses-Liste einfügen !  --------------------
//uses ....;
uses mtreggramm ;

type
  TTerm = array[1..26] of String;
  TTermZuNichtT = array[1..26] of TTerm;

type
  tlreggramm = class(treggramm)
  TzNT: TTermZuNichtT;
  Term: TTerm;

  public //Methoden
    function analysiere (pwort: string) : boolean; override;
    function erzeuge : string; override;
   end;

implementation
uses mtstring,sysutils,Classes;
var maxlaenge:integer=100;
//+---------------------------------------------------------------------
//|         tlreggramm: Methodendefinition
//+---------------------------------------------------------------------

//-------- analysiere (public) -----------------------------------------
function tlreggramm.analysiere (pwort: string) : boolean;
var lauf,i,j,k :Integer;
    inhalt,nichtterm: String;
    Temp: TTerm;
  l: Integer;
begin
for i:=1 to length(nichtterminale) do
  begin
    j:=1;
      while not(regeln.isBehind) do
        begin
          inhalt:=(regeln.getItem as TString).GibInhalt;
          nichtterm:=copy(inhalt,0,pos('#',inhalt)-1);
          delete(inhalt,0,pos('#',inhalt));
            if (nichtterm=nichtterminale[i]) then
              begin
                Term[j]:=inhalt;
                inc(j);
              end;
        end;
    TzNT[i]:=Term;
  end;
for lauf:= 1 to length(pwort) do
  begin
    for k := 1 to Length(nichtterminale) do
      begin
        Temp:=TzNT[k];
          for l := 1 to Temp do  //hier will ich Temp.getLength  wird aber rot unterschlängelt
            begin
              //code
            end;
      end;
  end;
end;

[Gehstock]

SizeOf(Temp) ?

[Fussel9]

cool^^ der compiler läuft schon mal durch :mrgreen:
ich meld mich dann in ner stunde oder zwei nochmal obs jetz klappt xD

THX

[Gehstock]

Edit: Fehler meinerseits

[Fussel9]

:wiejetzt:

[RWarnecke]

Delphi-Quellcode:

high(arrayname)

wäre auch noch eine Variante.

[Gehstock]

wollt noch ein -1 dahinter setzen aber du fängst ja die Arrays bei 1 an

[Fussel9]

:-D ach so ok, dann sollte es ja gehn... :thumb: thx

[RWarnecke]

Ein Array fängt immer bei Null an. Damit sollte die FOR-Schleife so aussehen :

Delphi-Quellcode:

for i:=0 to high(temp) do
begin

end;

[Luckie]

Zitat:

Zitat von RWarnecke (Beitrag 1075352)

Ein Array fängt immer bei Null an. Damit sollte die FOR-Schleife so aussehen :

Nein. Nur dynamische Arrays fangen immer bei null an.