Ich möchte ein programm schreiben, welches zwei werte in einer function miteinander vergleicht und an die procedur true oder fals als Boolean zurückgibt. Hier ist mal mein code, irgenwas funzt hier nicht... kann mir einer sagen was?
mfg
der frosch
Delphi-Quellcode:
function pruefen (a,b:string):boolean;
begin
if a = b then
pruefen:=true
else
pruefen:=false;
end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Durch:Integer;
PIN1,PIN2,ergebnis:string;
begin
PIN1:=(edit1.text);
PIN2:='666';
durch:=+1;
label1.caption:=Inttostr(durch);
ergebnis:=(pruefen(pin1,pin2));
if pruefen := true then
panel1.Caption:='true'
else
panel1.Caption:='false';
end;
p.s.: er macht da irgendwie probleme mit string und boolean...