Memofeld auslesen ohne Satzendezeichen ^M bzw. #13#10

[_frank_]

dachte das Memo hast du sowieso...

gut dann halt so (das mit den spaces kannste ja rausmachen...):

Delphi-Quellcode:

function RemoveLineBreaks(const S: string;RemoveSpaces:boolean): string;
var
  I: Integer;
  Ch: Char;
const
  LB=[#13, #10];
  WS=[#9,#32];
begin
  Result:= '';
  for I:= 1 to Length(S) do
  begin
    Ch:= S[I];
    if not (Ch in LB) then
    begin
      if (not RemoveSpaces) or (not (Ch in WS)) then
        Result:= Result + CH;
    end;
  end;
end;

HTH Frank