while and "funktioniert nicht"

[Versus]

Delphi-Quellcode:

label4.Caption:=edit1.Text;
label6.Caption:=edit2.Text;
Spieler1:=edit1.Text;
Spieler2:=edit2.Text;
while Spieler1 and Spieler2 ='' do
showmessage('Spieler1 und Spieler2 wollen einen Namen D:')  ;

Ich möchte folgendens; Wenn Spieler 1 und/oder Spieler 2 leer sind dann soll er eine showmessage anzeigen. Momentan sagt er Der operator ist auf diesen Operantentypen nicht anwendbar. Also 1 möchte ich wissen was ich falsch mache und wie ich Delphi und/oder sagen kann z.B. while Spieler1 and/or Spieler2 ='' do .....

Danke schonmal im Voraus!

[Daniel]

while (spieler1 = ´´) and (spieler2 = ´´) do ...

[mkinzler]

Spieler1 ist auch keine vollständige Bedingung müsste dann Spieler1 = '' heissen.

So wie Du es implementiert hast, ist es zudem eine Endlosschleife (wenn Bedingung erfüllt)
Wenn die Namen leer sind, muss die Möglichkeit besteheh, etws einzugeben. Ich würde die Abfrage (ohne Schleife) im Exit-Event des Edits durchführen und wenn alles OK ist einen OK-Button freigeben ( enablen).

[Jasocul]

Du hattest den gleichen logischen Fehler hier schonmal.
Bitte nicht einfach nur die Lösung in dein Programm kopieren, sondern auch aus (so grundlegenden) Fehlern lernen.

[Versus]

Erstmal Danke für die ganzen hilfreichen Antworten ich würde gerne noch wissen wie man per befehl einen button auslöst. Also z.B

If Zahl=0 then Button3 start oder so ? bzw gibt es alternativen

[Neutral General]

Was funktioniert:

Button3.Click;

Aber!
Es ist deutlich schöner die Funktionalität die im OnClick des Buttons steht in eine separate Methode auszulagern und diese dann von mehreren Stellen aufzurufen.
Von daher tu dir den Gefallen und versuch es lieber so, statt mit der obigen Lösung.

[mkinzler]

Button.Click; Aber ich frage mich, wie das in diesem Fll Helfen soll.

[mkinzler]

Ich würde es wie schon mal geschrieben über die Aktivierung des Buttons machen.

Button.Enabled := False;

Delphi-Quellcode:

procedure TFormDings.EditExit(Sender: TObject);
begin
    Button.Enabled := ( edti1.Text <> '' ) and (edit2.Text <> '');
end;

Diese Methode bei den Edits mit dem Exit-Event verbinden (onExit).

Wenn beide Edits nicht mehr leer sind, wird der Button anklickbar.

[Jasocul]

Zitat von mkinzler:

Wenn beide Edits nicht mehr leer sind, wird der Button anklickbar.

Im OnExit?
Mal ganz davon abgesehen, dass OnExit nicht immer ausgelöst wird, hier ein kleines Beispiel, was auch dagegen spricht:
Edit1 enthält Text. In Edit2 wird gerade was eingegeben. Der Button ist dann immer noch disabled.

Wenn man es brauchbar machen will, empfehle ich die Nutzung von TActionList. Bei den Actions kann man dann im OnUpdate den Enabled-Status des Button vernünftig steuern. Aber ich weiß nicht, ob der TE damit vielleicht derzeit noch überfordert ist.

[Hobbycoder]

Und wenn schon, dann würde ich das eher im OnChange der Buttons unterbringen.
Denn wer verlässt ein Edit bevor er auf einen Button klickt?