Hai shirocko,
ersteinmal: "Herzlich Willkommen in der Delphi-PRAXiS"
prüfe einfach vorher ob der Wert deiner Variablen < 0 ist:
Delphi-Quellcode:
procedure TDemo_Form.Button1Click(Sender: TObject);
var
wert: Extended;
wurzel: Extended;
begin
if (wert = 0) then
begin
ShowMessage('Wert ist 0');
end;
if (wert < 0) then
begin
ShowMessage('Wert ist kleiner 0');
end;
if (wert > 0) then
begin
wurzel := Sqrt(wert);
ShowMessageFmt('Die Quadratwurzel aus %d ist %d', [wert, wurzel]);
end;
end;
Stephan B.
"Lasst den Gänsen ihre Füßchen"