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