THX a lot...sieht irgendwie kompliziert aus. Was sind denn Tags ???
Habe noch ein Problem. Schaut euch mal diesen Code an :
Delphi-Quellcode:
// Setzten der Werte Label
frmMain.lblEisenerz.Caption := WertEisenerz;
frmMain.lblGold.Caption := WertGold;
frmMain.lblSalzstein.Caption := WertSalzstein;
frmMain.lblSteine.Caption := WertStein;
frmMain.lblEdelsteine.Caption := WertEdelstein;
frmMain.lblMamorstein.Caption := WertMamorstein;
frmMain.lblWerkzeuge.Caption := WertWerkzeug;
frmMain.lblHolz.Caption := WertHolz;
frmMain.lblZiegel.Caption := WertZiegel;
frmMain.lblMamor.Caption := WertMamor;
frmMain.lblNahrung.Caption := WertNahrung;
frmMain.lblLeder.Caption := WertLeder;
frmMain.lblStoffe.Caption := WertStoffe;
frmMain.lblWein.Caption := WertWein;
frmMain.lblPelze.Caption := WertPelze;
frmMain.lblHeilkrauter.Caption:= WertHeilkrauter;
frmMain.lblSchwert.Caption := WertSchwert;
frmMain.lblBogen.Caption := WertBogen;
frmMain.lblArmbrust.Caption := WertArmbrust;
frmMain.lblMuskete.Caption := WertMuskete;
frmMain.lblRustung.Caption := WertRustung;
frmMain.lblLanze.Caption := WertLanze;
frmMain.lblAxt.Caption := WertAxt;
frmMain.lblKanonen.Caption := WertKanonen;
// Setzten der Werte Trackbar
frmMain.tbEisenerz.Position := StrToInt(WertEisenerz);
frmMain.tbGold.Position := StrToInt(WertGold);
frmMain.tbSalzstein.Position := StrToInt(WertSalzstein);
frmMain.tbSteine.Position := StrToInt(WertStein);
frmMain.tbEdelsteine.Position := StrToInt(WertEdelstein);
frmMain.tbMamorstein.Position := StrToInt(WertMamorstein);
frmMain.tbWerkzeuge.Position := StrToInt(WertWerkzeug);
frmMain.tbHolz.Position := StrToInt(WertHolz);
frmMain.tbZiegel.Position := StrToInt(WertZiegel);
frmMain.tbMamor.Position := StrToInt(WertMamor);
frmMain.tbNahrung.Position := StrToInt(WertNahrung);
frmMain.tbLeder.Position := StrToInt(WertLeder);
frmMain.tbStoffe.Position := StrToInt(WertStoffe);
frmMain.tbWein.Position := StrToInt(WertWein);
frmMain.tbPelze.Position := StrToInt(WertPelze);
frmMain.tbHeilkrauter.Position:= StrToInt(WertHeilkrauter);
frmMain.tbSchwert.Position := StrToInt(WertSchwert);
frmMain.tbBogen.Position := StrToInt(WertBogen);
frmMain.tbArmbrust.Position := StrToInt(WertArmbrust);
frmMain.tbMuskete.Position := StrToInt(WertMuskete);
frmMain.tbRustung.Position := StrToInt(WertRustung);
frmMain.tbLanze.Position := StrToInt(WertLanze);
frmMain.tbAxt.Position := StrToInt(WertAxt);
frmMain.tbKanonen.Position := StrToInt(WertKanonen);
Das müsste doch acuh einfacher gehen oder ??? Habe versucht ne Funktion zu schreiben wo man einfach den wert ( zum Beispiel: Kanonen ) übergibt. Aber das Funktioniert nicht.
Zum Beispiel : frmMain.tb+Übergebener Wert+.Position := ect....
Was anderes fällt mir nicht ein
Wie gesagt Newbie
