Delphi-Quellcode:
if (Edvname.text <> ('')) and (Edname.Text <> ('')) then
begin
showmessage('Funkioniert');
end
else
begin
showmessage('Werte eingeben!');
end;
Wenn ich sowas schon sehe, wird mir irgendwie schlecht.
Drück mal STRG+D im Editor! Und guck dir bitte einen Delphi-Style-Guide an.
Viele Probleme lösen sich von selbst und sind sofort sichtbar, wenn man den Code vernünftig hinschreibt.