Hallo Community
Bevor ihr anfangt, an meinem Quellcode rumzumeckern : Ich bin Anfänger!
Und bitte schlagt nix anderes vor, ich würde gerne so weitermachen wie ich es bis her gemacht habe
Programmidee ist nix neues, p und q werden angegeben , 2 Felder wo die 2 Lösungen ausgegeben werden und eins, wo drin steht falls ein Fehler auftaucht
Ich kopier euch einfach nur erstmal das relevante, sagt wenn ihr noch was anderes braucht
var
Form1: TForm1;
p , q , d : integer ;
l,ll:string
f ;
implementation
{$R *.dfm}
procedure TForm1.rechClick(Sender: TObject);
begin
p := StrToInt(Zahlp.text) ;
q := StrToInt(Zahlq.text) ;
d := (sqr(p div 2))-q ;
if d < 0
then f.text:=('Nicht möglich da Wurzel kleiner 0')
else l:=-p div 2+d
end;
end.
Das Problem scheint in der Nähe der else Zeile zu liegen!
Folgende Fehlermeldung, das vorletzte end ist dabei rot hinterlegt
[Error] Unit1.pas(41): Incompatible types: 'String' and 'Integer'
Könnte mir jemand auf die schnelle helfen?
Oder hätte jemand sogar die nerven, mir seine skype Addy zu geben?
danke