Dynamisch Variablenname erzeugen

[sirius]

Zitat von blackmice:

wird wohl nicht das gewünschte Ergebnis bringen

Nö, nie! Da bist du bei Delphi an der falschen Stelle. Variablen sind nach dem Compilieren nur noch Adressen. Namen werden nirgends abgespeichert. Das kann man über den Umweg einer Klasse machen, welcher beim compilieren der eigene Name mitgegeben wird. Dies ist z.B. bei allen Nachfahren von TComponent der Fall.

Aber warum nimmst du nicht ein Record?

Delphi-Quellcode:

type Txyz=(HV,ThrMin,ThrMax,...,LedMax);

type TRec=record
       low,high:integer;
end;

type TAll=array[HV..LedMax] of TRec;

Jede Komponente hat auch noch das Feld "Tag". Da speicherst du durchgehend eine Zahl (je nachdem, an welcher Stelle dein Komponente in Txyz ist)
Und dann so:

Delphi-Quellcode:

var xyz:Txyz;
begin
  xyz:=Txyz((sender as TTrackbar).Tag);
  All[xyz]:= //ja und jetzt machst du mit deinen Strings dasselbe
end;