Problem mit procedure Split()

[uragan]

Zitat von himitsu:

Nur leider ist die TStringList, bzw. alle Strings-Nachfahren, beim Input, nur auf einen einzelnen String ausgelegt und keine C-Stringliste.

Delphi-Quellcode:

procedure CStringArrayToStringList(const StringArray: String; SL: TStrings);
var
  P: PChar;
begin
  SL.BeginUpdate;
  try
    SL.Clear;
    P := PChar(StringArray);
    if (P^ <> #0) or ((P + 1)^ <> #0) then
      repeat
        SL.Add(P);
        Inc(P, StrLen(P) + 1);
      until P = #0;
  finally
    SL.EndUpdate;
  end;
end;

[unnützes Wissen]
die ResourceStrings werden auch so verwaltet ... jeweils 16 in einem solchen StringArray

komisch, bekomme ERROR: Unknown type: 'PChar'
Also wie ich sehe geht es nicht auf diese weise.
Hab versucht mit Pos() gibt auch 0 aus


Ist es möglich alle #0 im string zu löschen? oder auf was anderes zu verändern?