Hilfe bei If then else

[Asatru]

Ich habe folgendes Problem. Ich habe in einer schleife extra noch eine If then else abfrage drin. Nur komisch ist, wenn die Aussage unwahr ist macht er alles wie er sollte, aber im nächsten Loop ist die Aussage dann Wahr, aber trotzdem werden die Befehle von Else ausgeführt!

Habsch irgendwie ein Denkfehler?

Delphi-Quellcode:

  if RadioButton2.Checked then
    begin
      for i := 1 to 2 do
        begin
          {anweisung}

          if xxx and xxy then
                begin
                  if xxx = Text then
                    begin
                     {Anweisung}
                    end
                  else
                      PostMessage(handle4, WM_KEYUP, Integer('P'), 0);
                     {Selbe Anweisung wie bei wahr}
                end;
        end;
    end;

[edit=mkinzler]Code-Tag durch Delphi-Tag ersetzt Mfg, mkinzler[/edit]
[edit=mkinzler] Mfg, mkinzler[/edit]

[DeddyH]

Zitat:

Zitat von Asatru

aber im nächsten Loop ist die Aussage dann Wahr

Bist Du Dir da ganz sicher?

[mkinzler]

Da ich nich weiss, was genau gemacht wird, kann ich zum eigentlichen Problem nichts sagen aber schreibe besser

Delphi-Quellcode:

if xxx <> Text then
    PostMessage(handle4, WM_KEYUP, Integer('P'), 0);
{Anweisung}

[quendolineDD]

Dann hättest du die Abfrage lediglich negiert und müsstest dann deinen vorherigen Else-Block mit dem obigen vertauschen.
Edit:
und wenn bei Wahr und Falsch jeweils selbiger Code steht, kannst du diesen auch aus den Blöcken der IF-Abfrage herausnehmen.

[Asatru]

Ok, dann geh ich mal näher ins Detail

Am Anfang werden handles und texte von einer Anwendung geholt Es wird geprüft ob eine Combobox ein bestimmten text hat

Sollte der Text der Combobox eben grad xxx soll er eben seine anweisungen machen

wenn nicht, kommt dann else ins spiel und drückt die taste P um das bestimmte wort zu bekommen und dann weiterzumachen.
Am Anfang ist der Wert immer unwahr und er macht im ersten zug ihm eben war aber bei der wiederholung nutz er wieder else


selbe ist wenn

Delphi-Quellcode:

if xxx and xxy then
                begin
                  if xxx = Text then
                    begin
                     {Anweisung}
                    end 
                  if xxx <> Text then
                    begin
                     PostMessage(handle4, WM_KEYUP, Integer('P'), 0);
                     {Anweisung}
                    end;

drückt er jedesmal P obwohl der text eigentlich wahr ist!

[mkinzler]

Gut dass du die Verbesserungsvorschläge ( auch wenn mehrmals der selbe komtt, einfach ignorierst).
Da wir nicht wissen, was der Code im Detail macht, wäre eine hilfreiche Antwort Zufall oder Glück

[Asatru]

lÖL hab doch gesagt das er am anfang eben Handles (combobox und textbox) von einer anwendung holt. wennn er diese Handles findet soll er eben Abgleichen ob der text von der bsp Combobox wahr ist. Wenn ja dann soll er eben sagen wir nun angeben. Wenn unwahr ist drückt er eben den Buchstaben P in der Combobox.

In der Combobox gibt es 2 wörter die mit P anfangen

Private und Party am anfang steht meistens die Combobox auf normal, deshalb ist der erste was das prog macht P drücken und er kommt uff private (Else anweisung)

im nächsten loop hingegen musste er ja feststellen das Combobox auf privat stehen und somit die Anweisung vor else ablaufen, das macht er aber nicht, er erkennt sie immer als unwahr an!

[DeddyH]

Prüfe doch Deine Aussage ("im 2. Durchlauf ist das immer wahr") erst einmal nach, ich glaube das nämlich nicht.

[Asatru]

Ich glaube du hast recht, da er ja vom ersten lauf den Getwintext noch im string selbst drin hat meinst du das damit?

[Tyrael Y.]

Wahrscheinlich ein Problem mit case-sensitiv...rate ich mal so in den Raum rein

Delphi-Quellcode:

if SameText(ComboBox999.Text, meinVergleichstext) then
begin
  ...
end
else
begin
  ...
end;

[DeddyH]

Setz doch einmal einen Breakpoint und schau Dir den Inhalt der Variablen an. Evtl. liegt es nur an Groß- oder Kleinschreibung oder etwas in der Art.

[Asatru]

erste durchlauf OK
zweiterdurchlauf hinter else stoppt er und es wird mir als Wert angezeigt 'Private'#0

[DeddyH]

Dann versuch es mal mit trim().

[edit] Btw: Handelt es sich um Controls in einer Fremdanwendung? [/edit]

[Asatru]

Ok da habsch mich oben net richtig ausgedrückt ja es ist eine fremde anwendung!

MFG

Edit: Kann es sein das ich den Wert aus GetWIntext wieder löschen muss nach jeden Loop? oder ist das automatisch?

[mleyen]

Gibst du der Anwendung überhaupt Zeit alles abzuarbeiten?
Poste doch mal den kompletten Code mit evtl. der Fremdanwendung, dann müssen wir nicht mehr rumraten.

[Asatru]

ja delay sind drin

Delphi-Quellcode:

var
   Text: String;
Begin
   Text:= 'Private';

{andere Anweisungen}

  if RadioButton2.Checked then  //Private
    begin
      for i := 1 to 10 do
        begin
          handle1 :=  FindWindow('wxWindowClassNR', PCHar(Edit1.Text));
          handle1 :=  FindWindowEx(handle1, 0, 'wxWindowClassNR', 'ID_PANEL1');
          handle1 :=  FindWindowEx(handle1, 0, 'wxWindowClass', 'ID_LISTBOOK1');
          handle1 :=  FindWindowEx(handle1, 0, 'wxWindowClassNR', 'ID_SCROLLEDWINDOW6');
          handle4 :=  GetDlgItem(handle1, 428);
          handle3 :=  GetDlgItem(handle1, 430);
          handle2 :=  GetDlgItem(handle1, 426);

          if (handle1 <> 0) and (handle2 <> 0) then
                begin
                  if trim(GetWintext(handle4)) = Text then
                    begin
                      showmessage(Getwintext(handle4));
                      if EscPressed('Anwendung abbrechen ?') then Break;
                      delay(6000);
                    end
                  else
                    begin
                      Showmessage(Getwintext(handle4));
                      PostMessage(handle4, WM_KEYUP, Integer('P'), 0);
                      if EscPressed('Anwendung abbrechen ?') then Break;
                      delay(6000);
                    end;
                end;
        end;
    end;

[DeddyH]

Zitat:

Spam abbrechen ?

:shock:

[Asatru]

Jup wusste net wie ich es sonst nennen soll, später wird die schleife entfernt und eben nur gechekd ob wert stimmt und dann via hotkeys eben vorbestimmte texte rausgeschickt so wie es viele onlinespiele schon dabei haben nur das was ich nebenbei spiele nicht, gibt nur ein programm womit man was schreiben kann!

[DeddyH]

Soll das eine Art Bot werden?

[Asatru]

Nein. Es gibt online Spiele wo man via Shortcut vordefinierte Wortgruppen in den Chat bringen kann. Für mein Spiel ist es nicht möglich, aber es gibt ein prog was Privat und ähnliches per Handeinageb senden kann und er texte auch anzeigt die geschrieben wurde! Son Spambot zu schreiben ist ja keen ding, da kannsch das och vordefinieren! Es geht mir eben halt nur drum um via Tastendruck einmal einen Vordefinierten text zu senden!

Schleife habsch nur aus jucks gesetzt da wenn ich bsp. anderen Shortcut drücke er obwohl aussage wahr ist trotzdem den Buchstaben drückt obwohl er ihn nicht drücken müsste!

[DeddyH]

Wenn sich das so äußert, ist Deine Abfrage falsch. Trimme einmal beide Werte, wenn es dann immer noch nicht stimmt, weiß ich es auch nicht.

[Asatru]

ahh danke nachdem ich beides getrimmt habe gings. Kannste mir nochmal sagen worans da lag? den in meinem String Text gabs doch eigentlich keene Leerzeichen oder sonstiges!

MFG

[DeddyH]

Aber vielleicht im ausgelesenen ;)

[Asatru]

den ausgelesenen habsch ja vorher auch schonmal getrimmt gehabt *fg*

Delphi-Quellcode:

if trim(GetWintext(handle4)) = trim(String('Private'#0)) then

so funzt das nu aber was bewirkt bitte sehr das #0 ???

[edit=mkinzler]Code-Tag durch Delphi-Tag ersetzt Mfg, mkinzler[/edit]

[DeddyH]

#0 ist das Stringende-Zeichen bei nullterminierten Strings, deshalb heißen die auch so.