String in einem Aufruf verwenden...

[abx]

Hi,

Ich würde gerne einen String Teil eines Aufrufs werden lassen,
Ich mache das mal an einem Beispiel deutlicher:

Delphi-Quellcode:

string := '5';
Label[Hier soll der String hin].Caption := 'Hallo Welt';

In dem Beispiel mit 5 wäre der Aufruf also "Label5.Caption := ......". Wenn ich den String anders definiere, entsprechend ("Label1....", "Label3....").
Ich weiß, dass sowas auch mit Bedingungen geht, aber ich wollte mich nicht tot tippen, weil es sich um sehr viele Zahlen handelt.

Und wie sieht das gleiche mit z.B. Integern aus? Könnt man schön mit Schleifen kombinieren.....


Vielen Dank für eure Hilfe.

abx.

[Christian Seehase]

Moin abx,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Zu Deinem Problem:
Such' hier mal nach FindComponent

Die Frage taucht hier immer mal wieder auf

[Nuclear-Ping]

Warum packst du 50 Labels (klingt laut deiner Aussage zumindest so ^^) auf eine Form, statt eine ListView-Komponente zu verwenden und dort die Einträge reinzuschreiben?

[mkinzler]

Oder ein StringGrid

[Tumm]

TLabel(FindComponent('Label' + s)).Caption := 'Hallo Welt'; Dabei S für deinen String.

Und natürlich herzlich Willkommen in der DP !

[abx]

Hi, danke für die Antworten.
Also ich lerne Delphi in der Schule. Ich finde das Lerntempo dort sehr gering. Wir haben in etwas mehr als einem Halbjahr nur folgende Dinge behandelt:
-Button
-Label
-Edit
-Schleifen
-Bedingungen

Ich wollt mich mal ein bischen mehr wagen und ein Programm schreiben, das mir Nullstellen von Funktionen beliebigen Grades berechnet. Wenn die Funktion zum Beispiel 4, Grades ist. Sollten die Inhalte der Editfelder 1-5 aus gelesen werden (a*x^4+b*x^3+c*x^2+d*x+e).

Um das mit FindComponent auszuprobieren, habe ich ein paar Zeilen geschrieben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
a, s: String;
begin
s := Form1.Edit0.Text;
a := TEdit(FindComponent('Form1.Edit'+s)).Text;
Form1.Label1.Caption := a; 
end;

end.

Der Variable a soll der String von Edit[s].Text zugewiesen werden. das [s] wird durch Edit0.Text bestimmt. War nur zum antesten gedacht, aber nach dem Kompilieren wird a immer ein leerer Wert zugewiesen, also gar keiner.
Woran liegt das?

Und inwiefern sind ist es für mich sinnvoll mir StringGrid oder ListView anzuschauen? Es geht um das oben beschriebene Projekt.
Ich habe übrigens Delphi 5.0

Und Danke nochmal an Tumm für das gute Beispiel.
Grüße, abx.

[Tumm]

Zitat:

a := TEdit(FindComponent('Form1.Edit'+s)).Text;

Du kannst das Form1 weglassen, da du dich in der Klasse "befindest", weil TForm1.Button1Cick zu dieser Klasse gehört, also:

a := TEdit(FindComponent('Edit'+s)).Text; Daran liegt es allerdings nicht (denke ich). Guck doch nochmal nach ob in dem Edit wirklich was drinsteht !

[taaktaak]

Nee, daran wird es nicht liegen. Der Code ist schon richtig - es funktioniert!
Sind die Benennungen der beiden Edits / des Labels denn richtig?

[Tumm]

Zitat:

Daran liegt es allerdings nicht (denke ich)

[abx]

Hi,

also ich weiß nicht woran es lag, aber ich hab ein neues Projekt gemacht. Mit dem neuen Projekt hat es dann auch funktioniert.... Danke!
FindComponent sucht mir ja Komponenten, also Buttons, Editfelder, Labels und alles andere, was ich mit Delphi auf das Fenster packe.
Gibt es da eine Entsprechung für ganz normale Variablen? Ein Beispiel:

Delphi-Quellcode:

var
s: String;
a,b, c, d, e, f, g, h, (das ganze ABC eben): Real;
begin
s := Edit1.Text; //ein Buchstabe wird bestimmt
FindVariable(s) := 7;
end;

Mit sowas könnte ich das Programm nach meinen Vorstellungen mit einem recht kurzen Quellltext umstetzen...

Grüße, abx.