Trim funktion

[TBx]

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