Hallo, ich benötige einige Variablen ausm OnCreate in einer meiner Funktionen.

markieren

Delphi-Quellcode:

private
  { private declarations }
ArtEntfall,ArtAufgabe,ArtAufsicht,ArtSondereinsatz,ArtSonstiges,ArtSStudium,ArtStatt,ArtUBesuch,ArtVerlegt,ArtVertretung:String;

zusammenfalten · markieren

Delphi-Quellcode:

function 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;

Allerdings ergibt sich hier nur der Fehler 'Unbekannter Bezeichner'.
Hat jemand einen Rat für mich?

Mach aus der Funktion eine Methode.

Dann musst du die Variablen global anlegen

zusammenfalten · markieren

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;

/Edit: Die globalen Variablen funktionieren doch schneller und einfacher.

Du brauchst natürlich eine Instanz der Klasse

Zitat von Svenkan:

/Edit: Die globalen Variablen funktionieren doch schneller und einfacher.

Aber auch viel gefährlicher und undurchsichtiger.
Du weisst in grossen Projekten dann nicht mehr, wer wann warum die globalen Variablen verändert.

Ausserdem sind sie "verboten".
Schau mal in den Borland StyleGuide.

Hai Svenkan,

noch etwas: Um deinen Code lesbarer (bzw. lesbar) zu machen solltest Du dir in deiner Methode eine Variable deklarieren und in dieser ganz am Anfang den Wert von
queryname.FieldByName('BEMER_SCH').AsString speichern. Dann musst Du in deinen Abfragen nicht immer wieder das Feld auslesen.