Hilfe
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...
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;