Dank eines "Gestesblitzes" habe ich mein Problem vorerst so gelöst:
Delphi-Quellcode:
begin
TempLabel := System.Windows.Forms.&Label.Create;
TempLabel := Sender as System.Windows.Forms.&Label;
s := TempLabel.Text; // <<<<<<<
for I := 0 to Self.Panel1.Controls.Count - 1 do
begin
if (Panel1.Controls[i].Left = TempLabel.Left)
AND [b](Panel1.Controls[i].Text = s)[/b] then // <<<<<<<
begin
Panel1.Controls[i].Text := '';
end;
TBText.Text := TBText.Text + i.ToString + ': ' + TempLabel.Text + ' - ' + Panel1.Controls[i].Text + ' > ' + s + #13#10;
end;
Das löst aber noch nicht mein Verständnisproblem, warum TempLabel.Text in der ersten Version der Procedur verändert wird. - Wer kann mir da weiterhelfen?
mfg Jürgen
@ mkinzler
Danke für Deine Mithilfe. Ich bin aber noch ein ziemlicher Anfänger, so dass ich sicher manches Problem auf etwas umständlich angehe. Wie sollte ich es Deinem Meinung nach machen?