Problem mit procedure Split()

[ConnorMcLeod]

Klingt elegant (ausser dass man höllisch aufpassen muss, wer die TList wieder freigibt). Aber soweit ich das verstanden habe MUSS es eine TStringList sein (Aufgabenstellung?). So gesehen läge es auch nahe, eine eigene Ableitung zu machen und im Setter TMyStrings.SetDelimitedText die #0 extra freundlich zu behandeln.

[uragan]

Function SplitByNullChar (P : PChar; N : Integer) : TList;

PChar gibt es nicht

[EWeiss]

Zitat von uragan:

Function SplitByNullChar (P : PChar; N : Integer) : TList;

PChar gibt es nicht

warum PChar und nicht pointer of char

gruss

[himitsu]

Weil PChar schon ein Pointer auf einen oder mehrere Chars ist?

Wenn es PChar nicht gibt, dann stimmt irgendwas nicht
und man sollte erstmal dieses Problem beheben.

[EWeiss]

Zitat von himitsu:

Weil PChar schon ein Pointer auf einen oder mehrere Chars ist?

Wenn es PChar nicht gibt, dann stimmt irgendwas nicht
und man sollte erstmal dieses Problem beheben.

LOL

Ist mir schon klar..
Aber anscheinend hat er kein PChar oder steht ihm nicht zur verfügung.

Zitat:

PChar gibt es nicht

Also muss er den Pointer selbst erstellen als Pointer of Char.

gruss

[himitsu]

Zitat von EWeiss:

Zitat:

PChar gibt es nicht

Also muss er den Pointer selbst erstellen als Pointer of Char.

Oder er sagt uns mal warum es PChar nicht gibt, bzw. ob dieses einfach nur nicht verwendet werden darf.

[uragan]

wie siehts aus wenn man das ganze so macht?
weiß jemand wieso das ganze nicht klappt?

Delphi-Quellcode:

var

list2: TStringList;
res : string;
i : integer;

procedure Split(const Delimiter: Char; Input: string; Strings: TStrings);
var
   setstring : string;
   StringsTemp : TStringList;
begin
   StringsTemp := TStringList.create;
   Strings.Clear;
   while setstring <> '' do begin
   StringsTemp.Clear;
   StringsTemp.Delimiter := Delimiter;
   StringsTemp.DelimitedText := Input;
   Strings.Add(StringsTemp[0]);
   setstring := StringsTemp[0];
   Delete(Input,0,Length(StringsTemp[0])+1);
   end;
end;

begin
list2 := TStringList.create;
res := 'test1'+#0+'test1'+#0+'test1'+#0 ;
Split(#0, res, list2);
for i := 0 to list2.count-1 do begin
   ShowMessage(list2[i]);
end;
end.

EDIT::

Hab das ganze versucht in eine datei abzuspeichern

Code:

62 6c 61 62 6c 61 00 0d 0a 
62 6c 61 62 6c 61 32 00 0d 0a 
62 6c 61 62 6c 61 33 00 0d 0a

Es wird in der Datei angezeigt

Code:

blabla
blabla2
blabla3

Wenn ich per TStringList.LoadFromFile die selbe datei lade, dann wird nur der erste eintrag abgerufen, und danach ist stop.
D.h. nach wiederholtem abspeichern auf die selbe datei ist es nur noch:

Code:

62 6c 61 62 6c 61 00

Code:

blabla

echt komisch

PS: Datei liegt im Anhang, falls jemand probieren möchte