in Procedur funtioniert zweite Zeile nicht! warum?

[Hari]

hi @ all!


------------------------------------------------------------------

Delphi-Quellcode:

procedure TForm1.ServerSocket2ClientRead(Sender: TObject; 
Socket: TCustomWinSocket); 
var 
  order : string; 
begin 
  order := socket.ReceiveText; 
  if order = 'open' then 
  begin
    richedit1.lines.add('OPEN befehl wurde empfangen'); 
    if order = 'close' then
    begin 
      richedit1.lines.add('CLOSE befehl wurde empfangen'); 
    end; 
  end; 
end;

-------------------------------------------------------------------

ich möchte das diese zeile : if order = 'open' then begin richedit1.lines.add('CLOSE befehl wurde empfangen'); auch ausgeführt wird.
ich möchte mehrere befehle verwenden aber es funktioniert immer nur die erste (close) zeile.

das soll so funktionieren : wenn ich den text "open" sende dann soll er einen befehl ausführen hier zb. gibt er den text : "OPEN befehl wurde empfangen" in ein memo aus. und bei close sollte er dann "CLOSE befehl empfange" in ein memo ausgeben aber es geht nur der eine erste mit OPEN befehl empfangen"

Wer kann mir da weiter helfen??????????

danke im vorraus für jede hilfe Hari

[edit=Luckie]Delphi-Tags gesetzt. Mfg, Luckie[/edit]
[edit=Luckie]Quelltext formatiert. Mfg, Luckie[/edit]

[Luckie]

Kuck dir den Quellcode mal jetzt an nach dem ich ihn formtiert habe.

Man sieht, etwas besser formatieren und der Fehler springt einem förmlich ins Auge.

[Nicodius]

dann lösch das hier halt @ luckie für leute wie dich gebits ja deinen "beruf"

[Luckie]

Was soll bitte sehr dieser äußerst überflüssige Beitrag hier an dieser Stelle? Fass dies bitte als Warnung auf.- So viel ich weiß, hat dir Daniel diesbezüglich schon eine PN geschrieben!

[Pseudemys Nelsoni]

irgendwas hat nicodius gesoffen, in nem anderen thread meinte er schon das die lösung eines alphablend-panels nonVCL sei
Luckie dein Text enthält viele Fehler !!

@Topic: deine 2te if abfrage muss 1mal weiter nach aussen

[Nicodius]

ja ich hab ja gesoagt da ma net gut geht ich glaub ich halt mich vom Forum fern

ürbigens Luckie wir wollten noch was wegen der ip geschichte reden oder?

[Luckie]

Zitat von Pseudemys Nelsoni:

Luckie dein Text enthält viele Fehler !!

Ja war die Aufregung, weil Nicodius trotz Ermahnung seitens Daniels sich anscheinend nicht beherrschen kann.

[StefanDP]

Delphi-Quellcode:

procedure TForm1.ServerSocket2ClientRead(Sender: TObject; 
Socket: TCustomWinSocket); 
var 
  order : string; 
begin 
  order := socket.ReceiveText; 

  if order = 'open' then 
  begin
    richedit1.lines.add('OPEN befehl wurde empfangen'); 
  end;

  if order = 'close' then
  begin 
    richedit1.lines.add('CLOSE befehl wurde empfangen'); 
  end; 
end;

du hast die if abfragen ineinander verschachtelt gehabt! ob es "close" ist, würde nur geschaut werden, wenn es "open" ist...

ich hoff so gehts!

stefan

[Nicodius]

Zitat:

Ja war die Aufregung, weil Nicodius trotz Ermahnung seitens Daniels sich anscheinend nicht beherrschen kann.

was regt dich das auf

du kannst solche posts ohen weiteres löschen ^^

[Luckie]

Zitat von Nicodius:

was regt dich das auf

du kannst solche posts ohen weiteres löschen ^^

Ich habe aber keine Lust und die anderen Moderatoren wohl ebenso, ständig hinter dir her zu räumen. Desweghen unterlass soclhe Postings bitte in Zukunft. Da ich denke, dass das Problem jetzt so wieso gelöst ist, schließe ich hier an dieser Stelle.