TStringList: Statt "#13#10" nur "#10"?

[Helmi]

Hallo,

kann man einer TStringList beibringen, dass sie als LineFeed nur #10 nehmen soll?
Leider verwendet sie momentan #13#10 aber ich brauch das #13 nicht.

Oder bleibt mir (leider) nur die langsame Lösung über den Text zu laufen und #13#10 gegen #10 zu tauschen?

[himitsu]

Gibt es bei dir schon StringList.LineBreak?

[Helmi]

Zitat von himitsu:

Gibt es bei dir schon StringList.LineBreak?

Nein! - ich verwende Delphi 7 Pro.

In den Sources der StringList hab ich gerade folgenden Code gefunden:

Delphi-Quellcode:

function TStrings.GetTextStr: string;
var
  I, L, Size, Count: Integer;
  P: PChar;
  S, LB: string;
begin
  Count := GetCount;
  Size := 0;
  LB := sLineBreak;
  for I := 0 to Count - 1 do Inc(Size, Length(Get(I)) + Length(LB));
  SetString(Result, nil, Size);
  P := Pointer(Result);
  for I := 0 to Count - 1 do
  begin
    S := Get(I);
    L := Length(S);
    if L <> 0 then
    begin
      System.Move(Pointer(S)^, P^, L);
      Inc(P, L);
    end;
    L := Length(LB);
    if L <> 0 then
    begin
      System.Move(Pointer(LB)^, P^, L);
      Inc(P, L);
    end;
  end;
end;

Und da dort "sLineBreak" aufgerufen wird, scheints wohl nicht möglich zu sein.

[Sir Rufo]

Ansonsten halt (wenn es das in Delphi 7 schon gibt) mit StringReplace

[Helmi]

Zitat von Sir Rufo:

Ansonsten halt (wenn es das in Delphi 7 schon gibt) mit StringReplace

Na, sooooooooo alt ist Delphi 7 nun auch wieder nicht
Ich brauch die Bits nicht einzeln selbst setzen

Dann bleibt mir wohl nichts anderes übrig, als StringReplace zu verwenden

[Sir Rufo]

oder du erstellst dir halt eine Ableitung von TStringList, die das kann ...

[Helmi]

Zitat von Sir Rufo:

oder du erstellst dir halt eine Ableitung von TStringList, die das kann ...

Wäre eine Idee, aber StringReplace reicht auch...
(Die Software wird von meinen Kollegen verwendet und die haben zeit auf die StringReplace-Schleife zu warten )

[p80286]

Anderer Vorschlag, wie wäre es mit soetwas:

Delphi-Quellcode:

procedure SCHREIBESTRINGLISTE_0A(ss:tstringlist;fn:string);
var
  i : integer;
  tb : array [0..8192] of byte;
  f : textfile;
begin
  assignfile(f,fn);
  settextbuf(tb,sizeof(tb));
  rewrite(f);
  for i:=0 to sl do
    write(f,sl[i]+#10);
  closefile(f);
end;

Gruß
K-H

[Helmi]

Zitat von p80286:

Anderer Vorschlag, wie wäre es mit soetwas:

Delphi-Quellcode:

procedure SCHREIBESTRINGLISTE_0A(ss:tstringlist;fn:string);
var
  i : integer;
  tb : array [0..8192] of byte;
  f : textfile;
begin
  assignfile(f,fn);
  settextbuf(tb,sizeof(tb));
  rewrite(f);
  for i:=0 to sl do
    write(f,sl[i]+#10);
  closefile(f);
end;

Gruß
K-H

Schaut ganz gut aus. Aber musste es oben nicht (sl:tstringlist;fn:string); lauten

[p80286]

Jo
und auch für Dich: Es ist Montag, kalt und ...... grummel

(auf das tstringlsit gehe ich jetzt mal nicht ein)

Gruß
K-H