[Gate007]

Вот такой код:

Код:

function TForm1.DeleteLineBreaks(S: string): string;
var
  Source, SourceEnd: PChar;
begin
  Source := Pointer(S);
  SourceEnd := Source + Length(S);
  while Source < SourceEnd do
  begin
    case Source^ of
      #10: Source^ := #32;
      #13: Source^ := #32;
    end;
    Inc(Source);
  end;
  Result := S;
end;

Минус его состоит в том, что он заменяет 1 перенос строки на 2 пробела, а нужно, чтобы только на один.
На входе - поле мемо, в нем несколько строк. Функция вызывается с параметром DeleteLineBreaks(memo1.Lines.Text).

[PhoeniX]

Обязательно использовать PChar? Со строками и StringReplace это делается в 4 строки кода... хоть и ни фига не оптимально...

[Gate007]

глупый вопрос... а как?

[v1s2222]

Код:

S:=StringReplace(S, #10#13, ' ', [rfReplaceAll]);

[Gate007]

Сообщение от v1s2222

Код:

S:=StringReplace(S, #10#13, ' ', [rfReplaceAll]);

не канает.

Код:

Writeln(f, StringReplace(memo1.Lines.Text, #10#13, ' ', [rfReplaceAll]));

В файле f вообще нет удаления переносов, все точь-в-точь как было введено в мемо.

[PhoeniX]

Код:

S:=StringReplace(S, #10#13, ' ', [rfReplaceAll]);
S:=StringReplace(S, #13#10, ' ', [rfReplaceAll]);
S:=StringReplace(S, #10, ' ', [rfReplaceAll]);
S:=StringReplace(S, #13, ' ', [rfReplaceAll]);

[lmikle]

Угу, а вот так в данном случае не проще:

Код:

function GetPlainText(AList : TStringList) : String;
var
  I : Integer;
begin
  Result := AList[0];
  For I := 1 To AList.Count-1 Do Result := Result + ' ' + AList[i];
end;

...

Writeln(f,GetPlainText(TStringList(Memo1.Lines)));