String-Ende mit while finden

[Caps]

Zitat von matashen:

Zitat von KodeZwerg:

Delphi-Quellcode:

for i := 0 to 65535 do
  if ansistr[i] = AnsiChar(#0) then
    begin
      break;
    end;

so was?

laut Delphi Wiki
http://docwiki.embarcadero.com/Libra...tem.AnsiString
"Die Indizierung von AnsiString beginnt bei 1"

Ah, Du prüfst mit #0, ok.
Nur die Länge 65535 ist zu kurz. Meine Strings sind wesentlich länger.

[matashen]

Zitat von Caps:

Zitat von matashen:

Zitat von KodeZwerg:

Delphi-Quellcode:

for i := 0 to 65535 do
  if ansistr[i] = AnsiChar(#0) then
    begin
      break;
    end;

so was?

laut Delphi Wiki
http://docwiki.embarcadero.com/Libra...tem.AnsiString
"Die Indizierung von AnsiString beginnt bei 1"

Ah, Du prüfst mit #0, ok.
Nur die Länge 65535 ist zu kurz. Meine Strings sind wesentlich länger.

Dann nimm halt Length(ansistr)

[Caps]

Ok, danke, ich probiere das mit #0.
Das war die Information, die sich in der Delphi-Hilfe ein wenig versteckt ^^.

Danke und Grüße!
Caps

[KodeZwerg]

Zitat von Caps:

Ok, danke, ich probiere das mit #0.
Das war die Information, die sich in der Delphi-Hilfe ein wenig versteckt ^^.

Danke und Grüße!
Caps

gerne, allerdings gilt das mit #0 nur bei text strings. wenn dein ansistring binär ist klappt das alles nicht.

[Caps]

Genau, es ist nur Text.
Und den Aufruf von length wollte ich vermeiden.

Wenn lange Strings max. 2GB lang sein können, müsste LongWord als Typ für die Länge reichen, oder?
Das war meine anfängliche Sorge...

[KodeZwerg]

LongWord/Cardinal wäre passend.

[TiGü]

Zitat von Caps:

Genau, es ist nur Text.
Und den Aufruf von length wollte ich vermeiden.

Warum? Akademisches Interesse?

[Caps]

Zitat von TiGü:

Zitat von Caps:

Genau, es ist nur Text.
Und den Aufruf von length wollte ich vermeiden.

Warum? Akademisches Interesse?

Ja ^^

[KodeZwerg]

Zitat von TiGü:

Zitat von Caps:

Genau, es ist nur Text.
Und den Aufruf von length wollte ich vermeiden.

Warum? Akademisches Interesse?

hmm ich grübel gerade, eigentlich sollten es zwei unterschiedliche ergebnisse haben.
"Length(Text)" und "While not #0 inc(i)"
Length liefert länge vom text, incremental count liefer zusätzlich auch alles nicht-sichtbare.
Beispiel Zeilenumbrüche = 2 bytes

[matashen]

Delphi-Quellcode:

i:=0
while i<length(ansistr) do
begin;
 inc(i);
tu irgendwas mit deinem String
end;