1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:

function kommawert(eingabe : string) : boolean;
var
i : integer;
begin
  for i:=1 to length(eingabe) do begin
    if eingabe[i]=',' then begin
      result := eingabe[i]=',';
    end
    else
      result := eingabe[i]<>',';
  end;
end;

procedure TMyFriend.EintragenClick(Sender: TObject);
var
komma : string;
Neu : Tknoten;
begin
  komma:= editgroesse.Text;
  if (editname.Text <>(''))
  and (editvorname.Text <>(''))
  and (editalter.Text <>(''))
  and (editgroesse.Text <>('')) then begin
    if (kommawert(komma)) then begin
      Neu := TKnoten.Init;
      neu.name := editname.Text;
      neu.vorname := editvorname.Text;
      try
        neu.alter := (strtoint(editalter.Text));
      except
        showmessage('"Alter" muss eine Zahl sein!') ;
        editalter.Clear;
        activecontrol := editalter;
        exit;
      end;

      try
        neu.groesse := (strtofloat(editgroesse.Text));
      except
        showmessage('"Größe" muss eine Zahl sein!');
        editgroesse.Clear;
        activecontrol := editgroesse;
        exit;
      end;

      Neu.Nach := Anfang.Nach;
      Neu.Nach.Vor := Neu;
      Anfang.nach := Neu;
      Neu.Vor := Anfang;

      editname.clear;
      editvorname.Clear;
      editalter.Clear;
      editgroesse.Clear;

      activecontrol := editname;
      anzeige;
      end
      else
      showmessage('Bitte eine Zahl mit kommestelle eingeben!');

    end
  else begin
    showmessage('Felder dürfen nicht leer sein!');
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function Kommawert(Eingabe: String): Boolean;  
  var  
    i: Integer;  
begin  
  Result := TRUE; // Standard: Komma enthalten
  for i := 1 to Length(Eingabe) do // über alle Zeichen im String
    if (Eingabe[i] = ',') then // ist das aktuelle Zeichen in Komma?
      Exit; // ja, dann Funktion (und Schleife) abbrechen
  Result := FALSE; // alle Zeichen durch, aber kein Komma gefunden
end;					

1:
2:
3:
4:

function Kommawert(Eingabe: String): Boolean;  
begin  
  Result := (Pos(',',Eingabe) > 0); // ist ein Komma enthalten, liefert Pos() einen Wert > 0
end;					

1:
2:
3:
4:
5:

   if eingabe[i]=',' then begin
      result := eingabe[i]=',';
    end
    else
      result := eingabe[i]<>',';