Funktion um Stringlänge zu ermitteln

[Airblader]

Hi
Natürlich kenne ich length...

aber ein Freund von mir weiss nicht, wie man eigene Funktionen macht und wollte deshalb eine
length()-"imitation" schreiben.
Ich hab ihm meinen Ansatz genannt und er fragte, ob ich den mal machen könnte.
Hab ich:

Delphi-Quellcode:

function TForm1.GetLength(s: string): integer;
var
        i,
        count: integer;
begin
        i := 1;
        count := 0;

        while(TRUE) do
        begin
                try
                        if s[i] <> '' then INC(count);
                        Inc(i);
                except
                        break;
                end;
        end;

        Result := count;
end;

Aber das liefert sehr fragwürdige Zahlen.
Aufruf übrigens so:
ShowMessage( IntToStr( Form1.GetLength(Form1.InputLabel.Text) ) ); Bei "lol" sagt er z.B. 5.
Bei "lolo" geht er schon auf über 1800

Weiss jemand woran das liegen kann?

Oder ist die Idee an sich schon falsch?

air
P.S.: Hab anstatt while(TRUE) auch mit nem Boolean probiert, ging auch nicht...

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

[Airblader]

Argh..natürlich

Aber trotzdem die Frage, wie bei meinem (doofen) Ansatz so seltsame Werte auftreten

Die Idee war die:
Sobald der String mit s[i] ne AV auslösen würde, fang ich das per except ab und brech die schleife ab.
Selbst wenn #0 mitgewertet wird, müsste es doch gehen, nur, dass ich count-1 machen müsste, oder?

air
edit: wieso schrecklich formatiert? Ich machs immer mit TabStop und find mich so gut zurecht Leerzeilen mach ich
sowieso immer wie nochmal was *g*

[Basilikum]

Zitat von Luckie:

PS: Dein Code ist schrecklich formatiert.

und noch viel schrecklicher vom Inhalt her.... so lange probieren, bis eine Access-Violation auftritt....

[Jasocul]

Du kannst durchaus auf Speicher außerhalb des Strings zugreifen. Es muss nicht zwingend sofort eine Exception kommen. Erst wenn du irgendwohin gerätst was benutzt wird, bekommst du deinen Abbruch.

btw: Die Länge eines PascalStrings steht an Stelle 0 des Strings. s[0] gibt dir also auch die Länge zurück.

[Airblader]

Zitat von Basilikum:

Zitat von Luckie:

PS: Dein Code ist schrecklich formatiert.

und noch viel schrecklicher vom Inhalt her.... so lange probieren, bis eine Access-Violation auftritt....

Schrecklich aber theoretisch funktionabel (ich sagte theoretisch! )

Hab aber Luckies Funktion nochmal abgeändert, ohne len, nur mit Result.

air

[Luckie]

Zitat von Jasocul:

btw: Die Länge eines PascalStrings steht an Stelle 0 des Strings. s[0] gibt dir also auch die Länge zurück.

Jupp, aber das war ja nur ein beispiel, um seinen Freund etwas zu verdeutlichen.

[Luckie]

Zitat von Airblader:

Hab aber Luckies Funktion nochmal abgeändert, ohne len, nur mit Result.

Warum verhunst du meinen Code? Das war Absicht. So kann der Compiler besser optimieren, da er das EAX Register frei hat.

[Jasocul]

Zitat von Luckie:

Zitat von Jasocul:

btw: Die Länge eines PascalStrings steht an Stelle 0 des Strings. s[0] gibt dir also auch die Länge zurück.

Jupp, aber das war ja nur ein beispiel, um seinen Freund etwas zu verdeutlichen.

Stimmt. Wer lesen kann (und sich das auch noch merkt) ist im Vorteil.

[Airblader]

Zitat von Luckie:

Warum verhunst du meinen Code?

Dumme Angewohnheit von mir

Zitat von Luckie:

So kann der Compiler besser optimieren, da er das EAX Register frei hat.

Aja...was?
Ich kann mir nur vorstellen, was du damit meinst, aber wenn ichs mir richtig vorstelle, macht es durchaus Sinn
*schnell wieder zurückveränder*