Variablen in Funktion verwenden?!

[dominikkv]

Delphi-Quellcode:

type
  TMyClass = class()
  private 
    ArtEntfall,ArtAufgabe,ArtAufsicht,ArtSondereinsatz,ArtSonstiges,ArtSStudium,ArtStatt,ArtUBesuch,ArtVerlegt,ArtVertretung:String;
    function VertArt(const queryname: TQuery; wer,fuer: String): String;
  end;

// ...

function TMyClass.VertArt(const queryname: TQuery; wer,fuer: String): String;
begin 
if (pos('fällt aus: siehe', queryname.FieldByName('BEMER_SCH').AsString)<>0) then 
  Result:=ArtVerlegt; 
else if (Like(queryname.FieldByName('BEMER_SCH').AsString, '*?ufsicht*')) then 
  Result:=ArtAufsicht; 
else if NOT (pos('fällt aus', AnsiLowerCase(queryname.FieldByName('BEMER_SCH').AsString))<>0) AND (wer='') then 
  Result:=ArtSStudium; 
else if (Like(queryname.FieldByName('BEMER_SCH').AsString, '*?ufgabe*') OR Like(queryname.FieldByName('BEMER_SCH').AsString, '*?tillarbeit*') OR Like(queryname.FieldByName('BEMER_SCH').AsString, '*?eschäftigung*')) then 
  Result:=ArtAufgabe; 
else if (Like(queryname.FieldByName('BEMER_SCH').AsString, '?ällt aus')) OR (Like(queryname.FieldByName('BEMER_SCH').AsString, 'Diese Stunde * fällt aus!')) then 
  Result:=ArtEntfall; 
else if (pos('Statt', queryname.FieldByName('BEMER_SCH').AsString)<>0) AND (pos('Std.', queryname.FieldByName('BEMER_SCH').AsString)<>0) then 
  Result:=ArtStatt; 
else if (fuer='') AND (queryname.FieldByName('WERT').AsString='P') AND (queryname.FieldByName('ANZAHL').AsString='1') then 
  Result:=ArtSondereinsatz; 
else if NOT (pos('Statt', queryname.FieldByName('BEMER_SCH').AsString)<>0) AND NOT (pos('Std.', queryname.FieldByName('BEMER_SCH').AsString)<>0) AND NOT (fuer='') AND NOT (wer='') then 
  Result:=ArtVertretung; 
else if (Like(queryname.FieldByName('BEMER_SCH').AsString, '*Unterrichtsbesuch*')) then 
  Result:=ArtUBesuch; 
else 
  Result:=ArtSonstiges; 
end;