Forum: Object-Pascal / Delphi-Language
by Moombas,
19. Sep 2018
Ja genau. Aber es ist doch einfach zu verstehen. Die Namen bauen sich (logischerweise) so auf:
ButtonXABC
...
ButtonXXABC
Nun schaue ich (nach obigem Beispiel) ob an 8. Stelle eine Zahl ist. Wenn ja, dann ist an der 7. Stelle auch eine Zahl und somit sind wir im Bereich 10-99. Andernfalls sind wir im Bereich 0-9.
Oder Andres gesagt: Versucht er bei "ButtonXABC" sonst das "A" in eine Zahl...
Forum: Object-Pascal / Delphi-Language
by Moombas,
17. Sep 2018
@Schokohase: Doch:
try
StrToInt(copy(Name, 6, 1));
//1-Stellig (0-9)
except
//2-Stellig (10-99)
end;
Forum: Object-Pascal / Delphi-Language
by Moombas,
17. Sep 2018
Hab aber in einem anderen Beitrag (über Google über Umwege) eine Lösung gefunden:
TEdit(Tools.FindComponent('Tool' + copy(Name, 5, 1) + 'E')).Text
-.-
Forum: Object-Pascal / Delphi-Language
by Moombas,
17. Sep 2018
Das sollte kein Problem darstellen^^ s.u.
Forum: Object-Pascal / Delphi-Language
by Moombas,
17. Sep 2018
@Schokohase: Nicht wirklich. Sorry aber ich glaube du hast das nicht so ganz verstanden.
Aufbau:
Edits:
Pagecontrol1 (Menu) -> PageX (Einstellungen) -> Pagecontrol2 (EinstellungenPC) -> PageY (ToolsE) -> EditE1-15 (Programmpfade) & EditP1-15 (Parameter)
Tool1E.text...Tool15E.text
Tool1P.text...Tool15P.text
Buttons:
Pagecontrol1 (Menu) -> PageZ (Programme) - >GroupBox (Toolbar) ->...
Forum: Object-Pascal / Delphi-Language
by Moombas,
17. Sep 2018
@Uwe Raabe:
Achso XD Das mit der Button Nummer bekomme ich so hin:
procedure TTools.Tool1BClick(Sender: TObject);
begin
with sender as TButton do
begin
try
StrToInt(copy(Name, 6, 1));
showmessage('Tool' + copy(Name, 5, 2) + 'E'); //zur Prüfung des korrekt generierten Namens - passt
Forum: Object-Pascal / Delphi-Language
by Moombas,
17. Sep 2018
@TiGü: Es sind Komponenten innerhalb meines Programms, jedoch in einer TPageControl. Wenn ich nun also deinem Tipp nachgehe bekomme ich folgendes als "Lösungsansatz":
TEdit(FindComponent('Tool' + copy(Name, 5, 1) + 'E')).Text
Leider ist, wenn ich mir das mal als Showmessage zur Kontrolle ausgeben lasse, immer leer. Der Name wird jedoch korrekt zusammengesetzt.
procedure...
Forum: Object-Pascal / Delphi-Language
by Moombas,
17. Sep 2018
Moin zusammen,
dies ist ggf. eine blöde Frage aber ich komme da einfach nicht weiter:
Wie kann ich Dynamisch auf eine Komponente zugreifen?
Beispiel: Ich habe Buttons, deren Namen auf einer Logik basieren (einfachstes Beispiel hierfür wäre: "Name1", "Name2",...) bzw. auch deren Funktion.
Nun möchte ich nicht für jeden Button einzeln eine Funktion schreiben, sondern würde dies gerne...