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]