[Delphi] IF a THEN b ELSE c ???

Ta procedura
var
q: string;
begin
if Edit1.text:= or Edit.text:='xxx' then q:= else q:='zzz';
end;

powoduje błąd:
[Error] Unit1.pas(201): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

Co zrobić?

hmm
może tak :
var
q : string;
begin
if (Edit1.text=) or (Edit1.text='xxx') then q:= else q:='zzz';
end;
:-)

Może powinno być tak:

var
q: string;
begin
if (Edit1.text = ) or (Edit1.text = 'xxx') then q :=
else q := 'zzz';
end;

[Dopisek:] O a3a8o7 już mnie wyprzedził... A ty slave_k korzystaj z edycji własnych postów.

var
q: String;
begin
if (Edit1.Text = '') or (Edit1.Text = 'xxx') then
q := ''
else
q := 'zzz';
end;

Kod powinien wyglądać tak jak napisali poprzednicy, a błąd pojawia się ponieważ w instrukcji warunkowej "if ... then" użyłeś operatora przypisania ":=" zamiast operatora relacji(porównania) "=" :)

PS. Jak piszesz to staraj się aby kod wyglądał czytelnie ;)
http://4programmers.net/view.php?id=5