replace und upperstring

[sharpals]

hallo, hier zwei kleine functionen für die stringmanipulation,

wieso werden die einrückungen nicht angezeigt ??

Delphi-Quellcode:

// gibt die eingabe als Großbuchstaben
function upper(eing: string): string;  
var
  i: Byte;
  buff: string;
begin
  buff := '';
  for i := 1 to length(eing) do
    buff := buff + upcase(eing[i]);
  upper := buff;
end;

// ersetzt eine zeichenfolge, gegen eine andere und gibt sie zurück
function replace(eingabe, such, ersatz: string): string;
var 
  i: byte;
  lp: string;
begin
  lp := '';

  while pos(such,eingabe) > 0 do
  begin
    i := pos(such, eingabe);
    lp := lp + copy(eingabe, 1, i - 1) + ersatz;

    delete(eingabe, 1, i + length(such) - 1);
  end;

  replace := lp + eingabe;
end;

[edit=Matze]Delphi-Tags gesetzt und Code formatiert, das war ja schlimm. Mfg, Matze[/edit]