DGL • Thema anzeigen - statische Funktionen nicht aufrufbar

statische Funktionen nicht aufrufbar

Moderator: DGL-Team

Seite 1 von 1

[ 8 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

sharkman

Betreff des Beitrags: statische Funktionen nicht aufrufbar

Verfasst: Mo Apr 25, 2011 15:19

DGL Member

Registriert: Fr Dez 11, 2009 08:02
Beiträge: 532
Programmiersprache: pascal (Delphi 7)

Code:

sharkutils.pas(56,46) Error: Only class methods can be referred with class references
 

Die betreffende Function ist als

Code:

function bla(blubb: T): T; static;

deklariert (ok, sie heißt nicht bla

) Aber jedenfalls steht static daneben. Aufgerufen wird sie mit

Code:

TMyClass.bla(something);

Was passt da nicht? (FPC 2.2.4) Wenn ich wie in Delphi "class function" schreibe, passt das auch nicht.

Nach oben

Lord Horazont

Betreff des Beitrags: Re: statische Funktionen nicht aufrufbar

Verfasst: Mo Apr 25, 2011 15:23

DGL Member

Registriert: Do Sep 02, 2004 19:42
Beiträge: 4158
Programmiersprache: FreePascal, C++

Mit

Code:

class function bla(blubb: T): T;

sollte das gehen. Wenn nicht zeig mal noch etwas mehr Code.

greetings

_________________
If you find any deadlinks, please send me a notification – Wenn du tote Links findest, sende mir eine Benachrichtigung.
current projects: ManiacLab; aioxmpp
zombofant network • my photostream
„Writing code is like writing poetry“ - source unknown

„Give a man a fish, and you feed him for a day. Teach a man to fish and you feed him for a lifetime. “ ~ A Chinese Proverb

Nach oben

sharkman

Betreff des Beitrags: Re: statische Funktionen nicht aufrufbar

Verfasst: Mo Apr 25, 2011 15:41

DGL Member

Registriert: Fr Dez 11, 2009 08:02
Beiträge: 532
Programmiersprache: pascal (Delphi 7)

ok, jetzt geht´s doch. Anscheinend hatte ich vorhin noch irgendeinen anderen Fehler drinnen

Aber dafür gib´s ne ganze Reihe Neue Fehlermeldungen (alles Illegal Expression) und zwar jeweils dort, wo eine Klassenstatische Methode eine andere (aus derselben Klasse) aufruft.

Ein Beispiel:

Code:

if a < b then swap(a, b);

Bei swap schreit er. a und b sind hier int64, swap dürfte recht selbsterklärend sein. Jedenfalls ist swap in derselben Klasse deklariert, wie die aufrufende Funktion (hier ggt, weil ich keine Ahnung hab, wie das auf englich heißt

)

ps: ich schätze mal, das ganze Zeug wird´s sowieso schon irgendwo geben, aber ich probier sowieso nur ein Bisschen rum (diesmal mit generics, nachdem ich an Macros gescheitert bin

). Benutzen werd ich den Code wahrscheinlich eh nie.

Nach oben

Lord Horazont

Betreff des Beitrags: Re: statische Funktionen nicht aufrufbar

Verfasst: Mo Apr 25, 2011 15:59

DGL Member

Registriert: Do Sep 02, 2004 19:42
Beiträge: 4158
Programmiersprache: FreePascal, C++

Ein paar zeilen drumherum sowie die zugehörigen Deklarationen sind immer gut

greetings

Nach oben

sharkman

Betreff des Beitrags: Re: statische Funktionen nicht aufrufbar

Verfasst: Mi Apr 27, 2011 16:44

DGL Member

Registriert: Fr Dez 11, 2009 08:02
Beiträge: 532
Programmiersprache: pascal (Delphi 7)

ok, hat ne weile gedauert, bis ich wieder online gekommen bin

Wahrscheinlich ist es wieder nur ein dummer Fehler, aber hier mal der Code:

Code:

unit sharkutils;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils;
 
type
 
  TFrac64 = record
    n, d: int64;
  end;
 
  generic TIntMath<T> = class
    class procedure swap(var a: T; var b: T); static;
    class function ggt(a, b: T): T; static;
  end;
  Int64Math = specialize TIntMath<int64>;
 
  generic TFracMath<T, __IntMath, __IntType> = class
    class function Make(numerator: __IntType; denominator: __IntType): T; static;
    class procedure Make(const numerator, denominator: __IntType; out frac: T); static;
  end;
  frac64 = specialize TFracMath<TFrac64, Int64Math, int64>;
 
implementation
 
class procedure TIntMath.swap(var a: T; var b: T); static;
var x: T;
begin
  x:= a;
  a:= b;
  b:= x;
end;
 
class function TIntMath.ggt(a, b: T): T; static;
begin
  if a < b then swap(a, b);  //----------------------------------------------Fehler------------------------------------
  while b > 0 do begin
    a := a mod b;
    swap(a, b);  //-----------------------Fehler----------------------------------
  end;
  result:= a;
end;
 
class function TFracMath.Make(numerator: __IntType; denominator: __IntType): T; static;
begin
  Make(numerator, denominator, result); //--------------------------------Fehler---------------------------
end;
 
class procedure TFracMath.Make(const numerator, denominator: __IntType; out frac: T); static;
var ggt: __IntType;
begin
  ggt:= __IntMath.ggt(numerator, denominator);
  frac.n:= numerator div ggt;
  frac.d:= denominator div ggt;
end;
 
end.                       

Nach oben

Lord Horazont

Betreff des Beitrags: Re: statische Funktionen nicht aufrufbar

Verfasst: Mi Apr 27, 2011 17:59

DGL Member

Registriert: Do Sep 02, 2004 19:42
Beiträge: 4158
Programmiersprache: FreePascal, C++

Mach mal die static;-Dinger weg. Ohne kompiliert es sauber hier.

greetings

Nach oben

sharkman

Betreff des Beitrags: Re: statische Funktionen nicht aufrufbar

Verfasst: Do Apr 28, 2011 10:40

DGL Member

Registriert: Fr Dez 11, 2009 08:02
Beiträge: 532
Programmiersprache: pascal (Delphi 7)

ok, funzt jetzt. Aber wozu genau gibt es static nun eigentlich, wenn man mit "class function" schon eine statische funktion hat?

Nach oben

Lord Horazont

Betreff des Beitrags: Re: statische Funktionen nicht aufrufbar

Verfasst: Do Apr 28, 2011 18:02

DGL Member

Registriert: Do Sep 02, 2004 19:42
Beiträge: 4158
Programmiersprache: FreePascal, C++

Static ist für Felder gedacht, also z.B.:

Code:

type
  TMyStaticStuff = class (TObject)
  protected
    FMyValue: Integer; static;
  end;

greetings

Nach oben

Seite 1 von 1

[ 8 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 22 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.