Wie kann ich eine bedingte Variable erzeugen:
Abhängig von einem übergebenen Wert soll der Typ einer Variable bestimmt werden.
Bestimme nicht den Typ der Variablen, sondern weche Methode aufzurufen ist.
Delphi-Quellcode:
procedure TuEtwasMitArray(const TypeCode: Integer);
begin
case TypeCode of
1: TuEtwasMitIntegerArray;
2: TuEtwasMitByteArray;
else raise EInvalidOperation.CreateFmt('Unknown TypeCode %d', x);
end;
begin
procedure TuEtwasMitIntegerArray;
var
p: Integer;
begin
...
end;
procedure TuEtwasMitByteArray;
var
p: Byte;
begin
...
end;
Wie du auf das Array zugreifen willst hast du uns ja noch nicht gezeigt.