Zitat von
3_of_8:
AnsiCompareText meinte ich.
sry.
macht ja nichts ^^
so ich denke nun, dass ich das habe, ist zwar immer noch etwas buggy, aber im prinzip geht es...
hat vll noch einer einen verbesserung vorschlag? *hoff* sonst muss das für morgen reichen
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
stra,strb:string;
begin
stra:=edit1.text;
strb:=stra;
for I := 1 to length(stra) do
if stra[i] = 'ö' then begin
stra:=stra+'#';
//börse
stra[i]:= 'o' ;
//borse
stra[i+1]:='e' ;
//boese
for j:=i+2 to length(stra) do
stra[j]:= strb[j-1];
end;
edit1.Text:=stra;
end;