Problem mit procedure Split()

[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

[DeddyH]

Das liegt an der 0, das ist in Delphi nun einmal das Stringende-Zeichen, wurde aber bereits mehrfach gesagt.

[mkinzler]

Zitat:

Das liegt an der 0,

Eigentlich dass von C

[uragan]

Ist es nicht möglich die Funktion Trim() so umzubauen, dass es alle #0 löscht?

[himitsu]

Trim entfernt doch jetzt schon alle führenden und nachfolgenden #0-en ?