Strings vergleichen?

[Sir Rufo]

Dann mal auf die harte Tour
Nimm mal den Code führ das aus und sag uns, welche Nachricht du auf dem Bildschirm siehst( THEN oder ELSE)

Delphi-Quellcode:

var
  befehl1, befehl2 : string;
begin
  befehl1 := 'randomblablablablabla';
  if befehl1 = befehl2 then
    begin
      ShowMessage( 'THEN' );
    end
  else
    begin
      ShowMessage( 'ELSE' );
      befehl1 := befehl2
      //CODE//
    end;
end;

[Punica]

Entschuldigen Sie, habe mich glaube ich falsch ausgedrückt.

Ich will das kein Befehl ausgeführt wird bei dem
[DP]
if befehl1 = befehl2 then
begin

end
[/DP]

Und der Befehl nicht doppelt ausgeführt wird bei dem nächsten Teil.

Befehl soll nur einmal ausgeführt werden, bis der Befehl wieder geändert wird.

[Luckie]

Dann setze einen Flag.

[Sir Rufo]

Aber eine lokalen Variable einer procedure hat eine sehr kurze Lebensdauer.
Wird die procedure wieder verlassen ist der Inhalt futsch.

Somit geht das so nicht

[Punica]

Hmm, wie kann ich es dann regeln das es ressourcenschonender ist ? Oder geht es nicht?

[Rolf Frei]

Irgendwie ist es mir ein Rätsel was du genau machen willst. Wo wird befehl2 abgefüllt? Ich vermute du meinst sowas:

Delphi-Quellcode:

var
  befehl1,befehl2: string;
begin
  befehl1 := 'randomblablablablabla';
  if befehl1 <> befehl2 then 
  begin
    befehl1 := befehl2
    //CODE//
  end; 
end;

Nur macht das keinen Sinn, da befehl2 ja in diesem Code immer leer ist und somit auch die Bedingung immer True ist und dann befehl1 auch auf "leer" gesetzt wird. Versuche doch bitte mal dein Problem und was du genau machen willst genauer zu beschreiben.

[Punica]

Dieser Code ist in einem Timer, der vergleicht ob sich der Benutzer ein Befehl geändert hat, alle 60 Sekunden ungefähr ..

[stahli]

Zeig doch einmal mehr von Deinem Code. Sonst können wir schlecht helfen.
Wo werden denn Deine Zeichenketten-Variablen gefüllt?

"Befehl2" sollte vielleicht "BefehlAlt" heißen und müsste global (sorry ) deklariert sein. Sonst verfällt dessen Inhalt nach jedem Timerdurchlauf.

Man kann aber einen Vergleich auch im OnChange-Ereignis einer TEdit einbinden. Dann braucht man dafür keinen Timer einsetzen.

[himitsu]

Timer? Ich dachte sowas macht man via OnChange der Edits.

Delphi-Quellcode:

type
  TMyClass = class(...)
  private
    alterBefehl: String;
  end;

procedure TMyClass.xyz;
var
  befehl: string;
begin
  befehl := 'randomblablablablabla';
  if befehl <> alterBefehl then
  begin
    alterBefehl := befehl;
    //CODE//
  end;
end;

[stahli]

Ich glaube nicht, dass der Fragesteller sich schon mit Klassenentwicklung beschäftigt hat. Daher würde ich eine globale Variable empfehlen.