Zitat von
Tommy1988:
mhh.. ich probiers grade mal
Edit:
Hab nen kleinen Hänger, deswegen ist die Zeile X so doof:
Delphi-Quellcode:
if OldString = OldString then // Zeile X
begin
// Zeile Y , nix tun weil OldString immernoch gleich OldString ist
end else
begin
ListBox1.Items.Add(OldString) // Das hier könnte ja wenn Zeile X nicht doof wär bei zeile Y stehen
end;
Was Du uns da sagen möchtest verstehe ich ehrlich gesagt überhaupt nicht, aber was Dein Problem angeht versuch doch folgendes:
Delphi-Quellcode:
[...]
type
TForm1 = class(TForm)
[...]
public
{ Public-Deklarationen }
OldCaption : String;
end;
[...]
procedure TForm1.TimerTimer(Sender: TObject);
begin
{ Wenn Variable OldCaption noch nicht gesetzt }
if OldCaption = '' Then OldCaption := Label1.Caption;
{ Neue Caption? }
if Label1.Caption <> OldCaption Then Begin;
ShowMessage('Label1.Caption wurde geändert!!!');
OldCaption := Label1.Caption; // Neue Caption der Variablen zuweisen...
End;
end;
[...]
end.