WideString - länge "korrigieren"

[ralfiii]

Wenn bei einem Widestring irgendwo ein Doppel-NullByte eingefügt wird, wie kann ich dann Delphi verklickern, dass es den Längen-wert korrigieren sollte?

z.B.
alter Inhalt : "TestString"
neuer Inhalt : "result'#0'ing"

length(x) liefert noch immer 10.
setlength(x, StrLen(PChar(string(x)))) kann's ja net sein, das muss schöner gehen.

Danke!


P.S.: Das gleiche Problem mit "normalen" strings demonstriert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var s : string;
begin
     s:='Hallo'+#0+Caption;
     Memo1.Lines.Add('length = '+IntToStr(length(s)));
     Memo1.Lines.Add(s);
end;

Wie "korrigiere" ich s, so dass Length hier 5 liefert?
Setlength(pos(#0... ist ja auch so eine miese Lösung, da gibt's doch sicher was "richtiges"...
Danke!

[Bernhard Geyer]

Bei Delphi sind Strings nicht Null Terminiert! Kannst du dir die Position nicht merken und dann mittels Copy(...) arbeiten?

[ralfiii]

Zitat von Bernhard Geyer:

Bei Delphi sind Strings nicht Null Terminiert! Kannst du dir die Position nicht merken und dann mittels Copy(...) arbeiten?

Ich hab da nicht viel Wahl - das sind Rückgabewerte von einer DLL die erwartet dass ich den (maximal benötigten) Speicher für die Strings reserviere. Und die DLL liefert einfach Null-terminierte Strings.

Sieht in etwa so aus:

Delphi-Quellcode:

setlength(a, 20);
setlength(b, 100);
MyDLLFunction(Pointer(a), Pointer(b));

... und jetzt sind da irgendwelche Strings drin, mit einer Länge <20 bzw 100.
Nur eben das die Längeninfo von den Strings noch immer den alten Wert enthält.

Ich hoffe jetzt wird klarer was das Problem ist.

[SirThornberry]

die Suche nach der terminierenden 0 und davon abhängig ein SetLength ist unter diesen Umständen wohl die beste Lösung.

[Hawkeye219]

Hallo ralfiii,

du könntest es so versuchen:

Delphi-Quellcode:

var
  s : string;
begin
  s := PChar('result'#0'ing');
end;

Gruß Hawkeye