Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
Delphi 2009 Professional
|
Re: WideString mit Zeielnumbrüchen in string array?
13. Okt 2006, 23:37
Zitat von Florian Bernd:
Tag ist glaube ich #10
Nein... Das ist glaub ich Wagenrücklauf
Zitat von Florian Bernd:
... hier mal ein Beispiel zum Trennen deines Strings:
Delphi-Quellcode:
var
i: integer;
parts: array of string;
str: string;
begin
str := 'z1' + #13#10 + 'z2' + #13#10 + 'z3' + #13#10;
while pos(#13#10, str) <> 0 do
begin
setlength(parts, length(parts) +1);
parts[length(parts) -1] := copy(str, 1, pos(#13#10, str) -1);
delete(str, 1, pos(#13#10, str) +1);
end;
for i := 0 to length(parts) -1 do
showmessage(parts[i]);
end;
Also ich habe es so gemacht:
Delphi-Quellcode:
i : Integer;
StartPoint : Integer;
text : WideString;
list : array of string;
begin
ToDoChangeType := {irgendetwas};
StartPoint := 0;
while PosEx(#13#10, text, StartPoint) > 0 do begin
SetLength(list, Length(list) + 1);
list[High(list)] := Copy(text, StartPoint + 1, PosEx(#13#10, text, StartPoint) - StartPoint - 1);
StartPoint := PosEx(#13#10, text, StartPoint) + 1;
end;
Zitat von computer-glossar.de:
tab ist #9
Könnt sein
Fabian Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
|
|
Zitat
|