Hallo 1ceman!
Die Fehlermeldung tritt auf, weil Du als Rückgebetyp ein Objekt deklariert hat, dieses aber nirgends kreierst.
Ich gehe davon aus, daß Du die Änderungen direkt in dem Memo haben möchtest, das Du als M der funktion übergibst.
Das wäre dann folgendemaßen machbar:
Delphi-Quellcode:
function TForm1.trimmen(M:TMemo):Boolean;
var y,x : integer;
code : string;
begin
Result := False;
for y := 0 to M.Lines.count-1 do
begin
code := '';
for x:= 1 to length(M.Lines[y]) do
if Upcase(M.Lines[y][x]) in['A'..'Z'] then
code := code + Upcase(M.Lines[y][x])
else
begin
Result := True;
case Upcase(M.Lines[y][x]) of
'Ä': code := code + 'AE';
'Ö': code := code + 'OE';
'Ü': code := code + 'UE';
'ß': code := code + 'SS';
else
code := code + ' ';
end;
end;
M.Lines [y] := code;
end;
end;
Jetzt bekommst Du aus der Funktion ein True zurück, wenn etwas umkodiert wurde, andernfalls ein False.
Hoffe, das hilft Dir weiter
Gruß
onlinekater