Delphi-Help

Главная Статьи Многострочное окно редактирования (Memo) Замена символа переноса на пробел и удаление пробелов в начале и конце Memo

Замена символа переноса на пробел и удаление пробелов в начале и конце Memo

Оцените материал
(0 голосов)


function DeleteLineBreaks(const 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 := Trim(S);
end;

Вызов:

Edit1.Text := DeleteLineBreaks(Memo1.Text);

Авторизация



Счетчики