RichEdit Format

[lbccaleb]

Zu 2.

Du kannst die Zahl vorher formatieren, und dann in das RichEdit als Text einfügen:

Delphi-Quellcode:

function PointDelimiter(Argument: string; TrennChar: char): string;
var n,i: integer;
begin
  Result := Argument;
  n := Length(Result);
  if n > 3 then begin
    i := 0;
    While n > 0 do begin
      inc(i);
      if (i >= 3) and (n > 1) then begin
        Insert(TrennChar, Result, n);
        i := 0;
      end;
      dec(n);
    end;
  end;
end;


RichEdit1.Text := PointDelimiter('1234567890', '.');

Edit:
Zu 1.:
Du kannst mit stringreplace (http://www.delphibasics.co.uk/RTL.as...=StringReplace) die #13 im gesamten String austauschen gegen zB. ein Leerzeichen. Oder auch gar nichts..