String-Ende mit while finden

[Caps]

Ok, dann werde ich vorher auf PChar casten, danke.

[himitsu]

Die Hilfe schreibt inzwischen auch mal mehr zu den früher geheimen Internas.
http://docwiki.embarcadero.com/RADSt...Typen_(Delphi)

Und der geheime Typ StrRec in der System.pas

[Caps]

Danke :)

lg Caps

[KodeZwerg]

Zitat:

Zitat von himitsu (Beitrag 1471701)

Die Hilfe schreibt inzwischen auch mal mehr zu den früher geheimen Internas.
http://docwiki.embarcadero.com/RADSt...Typen_(Delphi)

Und der geheime Typ StrRec in der System.pas

*Knuddel* auf Dich ist immer verlass *Knuddel*

[KodeZwerg]

für akademische zwecke, hier noch ein kurzer link aus dem Jahr 2009/2011.

[Delphi.Narium]

Zitat:

Zitat von Caps (Beitrag 1471697)

Length liefert NICHT die Zeilenumbrüche mit?
Das würde mich jetzt aber aus der Bahn werfen...

Schonmal ausprobiert?

Delphi-Quellcode:

var
  s : String;
begin
  s := '>' + #13#10#13#10#13#10 + '<';
  ShowMessage(Format('%s ist %d Zeichen lang.',[s,Length(s)]));
end;

Was kommt denn dabei jetzt raus?

Code:

---------------------------
Editor
---------------------------
>


< ist 8 Zeichen lang.
---------------------------
OK   
---------------------------

[Uwe Raabe]

Nur nochmal zur Klärung: Strings und AnsiStrings in Delphi enthalten immer ein abschließendes 0-Zeichen. Daher ist eine Umwandlung in PChar bzw. PAnsiChar nicht nötig. Allerdings muss man aufpassen, wenn man den String an diesem Punkt indiziert, da das 0-Byte bzw. 0-Word außerhalb des gültigen Bereichs liegt. Zur Not kann man dann aber die Bereichsprüfung abschalten.

Lange String-Typen

[himitsu]

Ja, es zählt die Zeichen, und sollte ein Zeilenumbruch 2 Zeichen lang sein, dann sind das eben auch 2 Zeichen und nicht 1.
Man darf vorher gern #13#10 durch #10 ersetzen, oder man muß die Zählfunktion anpassen.

Zitat:

Zitat von Uwe Raabe (Beitrag 1471714)

Daher ist eine Umwandlung in PChar bzw. PAnsiChar nicht nötig.

Ja, aber wenn du über S[x] zugreifst und die Indexprüfung aktiv ist, dann raucht es, sobald du auf diese impliziten #0 zugreifen willst.

[Caps]

Zitat:

Zitat von Delphi.Narium (Beitrag 1471709)

Zitat:

Zitat von Caps (Beitrag 1471697)

Length liefert NICHT die Zeilenumbrüche mit?
Das würde mich jetzt aber aus der Bahn werfen...

Schonmal ausprobiert?

Delphi-Quellcode:

var
  s : String;
begin
  s := '>' + #13#10#13#10#13#10 + '<';
  ShowMessage(Format('%s ist %d Zeichen lang.',[s,Length(s)]));
end;

Was kommt denn dabei jetzt raus?

Code:

---------------------------
Editor
---------------------------
>


< ist 8 Zeichen lang.
---------------------------
OK   
---------------------------

Das ist genau das Verhalten, was ich erwarten würde; Length zählt die Umbrüche mit.
Etwas anderes hätte mich gewundert.

lg Caps

[himitsu]

Delphi-Quellcode:

'>'#13#10#13#10#13#10'<' = 8
'>'#10#10#10'<' = 6
'hätte' = 5
'ha'#$0308'tte' = 6

Tja, wenn man die Char's zählt, dann bekommt man eben auch die Anzahl der Chars.

Im Notfall muß man eben vorher den String "normalisieren", wenn man was Anderes haben will.

Denn egal ob ich #13#10 als EINS zähle
oder ob ä und ä (a¨ > Combining Diaeresis) für "mich" das Gleiche sind,
für den Computer ist es das nur dann, wenn ich es ihm sage.

Delphi-Quellcode:

if 'hätte' = 'ha'#$0308'tte' then  // das hier schmeißt direkt der Compiler raus
  Sleep(100){False};
S := 'ha'#$0308'tte';
if 'hätte' = S then  // ähnlich CompareStringOrdinal
  Sleep(100){False};
if CompareStringOrdinal('hätte', 5, 'ha'#$0308'tte', 6, False) = CSTR_EQUAL then
  Sleep(100){False};
if CompareString(LOCALE_USER_DEFAULT, LINGUISTIC_IGNOREDIACRITIC, 'hätte', 5, 'ha'#$0308'tte', 6) = CSTR_EQUAL then
  Sleep(100){True};

https://www.compart.com/en/unicode/U+0308
https://en.wikipedia.org/wiki/Combining_character