Mein Code bis jetzt:
Delphi-Quellcode:
type
TTokens = class
private
fOperators: array of string;
function GetOperators(Index: integer): string;
procedure SetOperators(Index: integer; s: string);
public
property Operators[Ndx: integer]: String read GetOperators write SetOperators;
end;
//...
procedure TTokens.SetOperators(Index: integer; s: string);
begin
if Index < high(fOperators) then
fOperators[Index] := s;
end;
function TTokens.GetOperators(Index: integer): string;
begin
if (Index > -1) and (Index <= high(fOperators)) Then
result := fOperators[Index]
else
result := '';
end;
Ist das so richtig (bis auf den fehlenden Else-Zweig in der Set-Methode)? Und wie muss ich die Add-Methode implementieren?
