Kann Delphi jetzt kein s[1] mehr?

[3_of_8]

Was mir bei Sir Thornberry's Code auffällt:

Delphi-Quellcode:

result := 1; 
LLen := Length(AStr);

Ist Result und LLen(Als Prozedurenname) nicht die gleiche Variable?

[Khabarakh]

Zitat von 3_of_8:

Was mir bei Sir Thornberry's Code auffällt:

Delphi-Quellcode:

result := 1; 
LLen := Length(AStr);

Ist Result und LLen(Als Prozedurenname) nicht die gleiche Variable?

da steht nicht "function LLen" sondern "var LLen" , erinnert mich an dieses "Gmäeß eneir Sutide eneir elgnihcesn Uvinisterät ..."

[edit]function LLen: Integer ohne Parameter gäbe ja auch wenig Sinn.

[3_of_8]

Das kommt davon, wenn man die ganze Nacht versucht, in eine Mini-IDE OpenGL zu integrieren. Ich bin mittlerweile soweit, dass ich jeden Satz mit einem Semikolon abschließen will;

[SirThornberry]

@BlueStarHH: Stimmt, ist mir gar nicht aufgefallen das ich da das "=" vergessen hatte. Bei deinem Source würde ich empfehlen "Length(s)" auf eine zwischenvariable zuzuweisen da der immer wieder kehrende aufruf von "Length(s)" das ganze sonst etwas langsamer macht. (source wurde also korrigiert)

[BlueStarHH]

Zitat von SirThornberry:

@BlueStarHH: Bei deinem Source würde ich empfehlen "Length(s)" auf eine zwischenvariable zuzuweisen da der immer wieder kehrende aufruf von "Length(s)" das ganze sonst etwas langsamer macht.

Da hast Du natürlich Recht. Dein Code ist auch insgesamt schöner, da er ohne eine if-Abfrage auskommt...

[SirThornberry]

die if-abfrage macht deinen source aber wieder schneller wenn der String wirklich leer ist da du nicht erst das result auf 1 setzt und anschließend wieder decrementierst so wie es in meinem beispiel der fall ist... naja, danke nochmal das du auf den fehler in meinem source hingewießen hast.