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

[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.