Bedingte Variable

[HeZa]

Zitat von markus888:

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.