function zum vergleichen zweier zahlen

[toms]

Hi,

Es haben sich ein paar Fehler in deinen Code geschlichen.
So sollte es funktionieren:

Delphi-Quellcode:

function pruefen(a, b: string): Boolean;
begin
  if a = b then
    pruefen := True
  else
    pruefen := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Durch: Integer;
  PIN1, PIN2: string;
  ergebnis: Boolean;
begin
  PIN1 := (edit1.Text);
  PIN2 := '666';
  durch := +1;
  Label1.Caption := IntToStr(durch);
  ergebnis := (pruefen(pin1, pin2));
  if ergebnis = True then
    panel1.Caption := 'true'
  else
    panel1.Caption := 'false';
end;