Funktion um Stringlänge zu ermitteln

[Luckie]

So geht's:

Delphi-Quellcode:

function mylength(s: String): Integer;
var
  len: Integer;
begin
  len := 1;
  while s[len] <> #0 do
    inc(len);
  result := len-1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(mylength('Michael Puff')));
end;

PS: Dein Code ist schrecklich formatiert.