Lazarusban ez pontosan mit jelent?

Megnéztem a kódodat..

Hajaj.

A str-eket cseréld ki result-ra, a függvény visszatérési értékét meg integer helyett stringre. Valahogy így:

a,b,c : integer;

str : string;

function lehete(x, y, z : integer) : string;

begin

if (x + y >= z) and (x + z >= y) and (y + z >= x) then

result:=('Lehet háromszög')

else

result:=('Nem lehet háromszög');

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

a:=strtoint(edit1.text);

b:=strtoint(edit2.text);

c:=strtoint(edit3.text);

edit4.text:= lehete(a,b,c);

end;

@#11:

Hm, nem rossz... érdemes volt törnöd vele magadat...

Álmos lehettél már hajnali három felé.

XD

tabaki :

Nem láttam a tiédet, csak az első 2-3 választ olvastam el.

function TForm1.lehete(x, y, z : integer) : string;

begin

Result := 'Nem lehet háromszög';

if (x + y > z) and (x + z > y) and (y + z > x) then Result := 'Lehet háromszög';

end;

procedure TForm1.ertekeloButtonClick(Sender: TObject);

begin

eredmenyEdit.text := lehete(StrToInt(aEdit.Text), StrToInt(bEdit.Text), StrToInt(cEdit.Text));

end;

Nem jó a >= mert =-nél nincs háromszög. A függvénynél nem kell else ág, mert már a Result-nál be állítunk egy visszatéréséri értéket ami az else ágat 'képviseli' és amúgy is illik 'kezdőértéket' állítani.