Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#12

AW: Problem mit procedure Split()

  Alt 28. Apr 2011, 10:25
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
$2B or not $2B

Geändert von himitsu (28. Apr 2011 um 13:37 Uhr)
  Mit Zitat antworten Zitat