function zum vergleichen zweier zahlen

[KermitFrosch]

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...

[c113plpbr]

Wenn du statt 'pruefen' 'result' einsetzt, sollte es funktionieren.

ciao, Philipp

[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;

[toms]

Zitat:

Wenn du statt 'pruefen' 'result' einsetzt, sollte es funktionieren.

Ist egal, ob er 'pruefen' od 'result' nimmt.
Üblicher ist aber 'Result'.

[Mirilin]

@c113plpbr
Das spielt keine Rolle ob man den Funktionsname oder Result schreibt. Das mit dem Funktionsnamen rührt glaube ich noch aus TP zeiten.

mfg Tobias

[Nicolai1234]

Du kannst dir die ganze funktion auch sparen. Schreib doch einfach:

Delphi-Quellcode:

PIN1 := Edit1.text;
PIN2 := '666';
if PIN1 = PIN2 then panel1.caption := 'true' 
else panel1.caption := 'false';

Was hat das durch(integer) damit zu tun?
Nicolai

[KermitFrosch]

@Nicolai1605 :das "durch" is nur n zähler...
und das ich mir die function sparren kann is mir klar, doch ich wollte es mal so
probieren...

also schon mal thx für die schnellen antworten, doch in der zeile
ergebnis:=(pruefen(pin1,pin2)); macht er immernoch probleme... er schreibt: nicht genügend wirkliche parameter

[Nicolai1234]

du musst als rückgabewert der function ein String nehmen, sonst kann er nicht ergebnis zugewiesen werden!!

[Michael Leyhe]

es ist schon richtig das der rückgabewert der function vom Typ Boolean ist

[edit] dann muss die variable ergebnis auch vom typ boolean sein [edit]

[KermitFrosch]

thx, aber was denn jez?