1:

[Pascal Warnung] FileRenamer.pas(196): W1035 Rückgabewert der Funktion 'TMainWindow.ZeichenPosition' könnte undefiniert sein					

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:

function TMainWindow.ZeichenPosition(Eingabe: String; anzahl: integer): Integer;
var i: integer;
    counter: integer;
    zeichen: char;
    err: boolean;
begin;
  err := false;
  if edt_trennzeichen.Text = '' then
  begin
    Application.MessageBox(PChar('Bitte ein Trennzeichen angeben!'),
      'Fehler', MB_ICONERROR or MB_OK);
    err := true;
    edt_trennzeichen.Focused;
  end;

  if not err then
  begin
    zeichen := edt_trennzeichen.text[1];
    counter:= 0;

    //Schleife, die jedes einzelne Zeichen durchgeht
    for i:= 1 to length(Eingabe) do
    begin
      if Eingabe[i] = zeichen then //Wenn Zeichen = meinem Sonderzeichen
      inc(counter);

      if counter = anzahl then
        break
    end;
    //Rückgabe setzen
    zeichenPosition := i;
  end;
end;					

1:

if not err then