Einzelnen Beitrag anzeigen

Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#6

Re: WideString mit Zeielnumbrüchen in string array?

  Alt 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
  Mit Zitat antworten Zitat