eigenen Record als Standartparameter.[gelöst]

[MAC]

Hallo.
Ich habe eine Menge funktionen , bei den ein Record übergeben wird. Jetzt will ich diesen Record als Standartparameter benutzen.
Ungefähr so:
statt:

Code: Alles auswählen

function Ich_funktioniere(aboolean:boolean = TRUE);
begin
end;

was einfach funktioniert und wo der Standartwert von aboolean = True ist soll es bei mir aber so aussehen , mit einem Record...

Code: Alles auswählen

TVarDec = record
  _string,
  _integer,
  _float
  :char;
  end; 
 
const
  stvardec:Tvardec =  (_string:'s';
                       _integer:'i';
                       _float:'f';);  
 
function Ich_funktioniere_nicht(avardec:TVardec =stvardec);
begin
end;

es scheitet bei der zuweisung von stvardec: "Illegal expression" - aber ich hab keine Ahnung wie ich das jetzt schreiben soll...

Danke.

[Maik81ftl]

Hallo.
Ich habe eine Menge funktionen , bei den ein Record übergeben wird. Jetzt will ich diesen Record als Standartparameter benutzen.
Ungefähr so:
statt:

Code: Alles auswählen

function Ich_funktioniere(aboolean:boolean = TRUE);
begin
end;

was einfach funktioniert und wo der Standartwert von aboolean = True ist soll es bei mir aber so aussehen , mit einem Record...

Code: Alles auswählen

TVarDec = record
  _string,
  _integer,
  _float
  :char;
  end; 
 
const
  stvardec:Tvardec = (_string:'s';
                       _integer:'i';
                       _float:'f';);  
 
function Ich_funktioniere_nicht(avardec:TVardec =stvardec);
begin
end;

es scheitet bei der zuweisung von stvardec: "Illegal expression" - aber ich hab keine Ahnung wie ich das jetzt schreiben soll...

Danke.

will jetzt wirklich nicht Gluck scheißen, aber wenn ich das Richtig verstehe, willst du ein Record, welcher mit Standart's arbeitet???

weiß nicht, ob ich mich da gerade Irre, aber soweit ich das noch im Filter habe müstet du Typen Definieren. Ähnlich wie bei der Erstellung von klassen.

ich klaube ich hab da sogar noch eine uf'n rechner...

mom i Schau mal...

Suche Läuft ............ 10 % Found.

Suche Beendet ......... 100 % Found.

schau mal, ob was da für dich dabei wäre...

Ist allergings noch nicht komplett fertig die file.

Werd mich aber auch mal mit nebenbei schlau machen...

Alternativ in den Sauren Apfel beisen und ggf. Über eine Startvariable versuchen, welche z.B. in der Creat geschrieben wird. Kann man dann ja jederzeit weiter versuchen zu verpessern.

Bin ehrlich, genau durch eben diese Sache hab ich C nie verstanden...

[MAC]

ok danke, ich schau mir das mal an...

Ich will mir einfach nur das ewige

Code: Alles auswählen

Ich_funktioniere_nicht(stvardec)

sparen
und statt dessen

Code: Alles auswählen

Ich_funktioniere_nicht

schreiben. Aber trotzdem noch die möglichkeit haben mal eine anderen Record einzusetzen...

Eigentlich könnt ich das aber auch über ne Globale Variable erledigen, denn das Programm ist so aufgebaut das es wenig sinn ergibt die Variable oft zu ändern...

Danke.

[DiBo33]

Du kannst mit überladenen Proceduren/Funktionen arbeiten

Code: Alles auswählen

type
  TVarDec = record
    _string,
    _integer,
    _float
    :char;
    end;
 
procedure AnTest(avardec: TVarDec); overload;
begin
  ShowMessage(avardec._string);
end;
 
procedure AnTest; overload;
  const
    stvardec:Tvardec =  (_string:'s';
                         _integer:'i';
                         _float:'f';);
begin
  AnTest(stvardec);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  vardec:Tvardec =  (_string:'x';
                       _integer:'y';
                       _float:'z';);
begin
  AnTest;
  AnTest(vardec);
end;

[MAC]

Stimmt - man wie dumm von mir - erst recht da ich im programm schon sowieso überladene proceduren verwende...
Danke.