Dynamisch Variablenname erzeugen

[Deep-Sea]

Zitat von leddl:

Delphi-Quellcode:

procedure WasAuchImmer(Var a : Integer; Var b : String; Sender : TObject)
begin
  a := (Sender as TTrackBar).Position;
  b := "Ich bin ein String";
end;

procedure TForm1.THRMinBarChange(Sender: TObject);
Begin
  WasAuchImmer(ersterInteger, ersterString);
End;

procedure TForm1.HVBarChange(Sender: TObject); 
Begin
  WasAuchImmer(zweiterInteger, zweiterString);
End;

Du solltest auch drei Parameter übergebne, wenn deine Procedure drei erwartet