AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Records Proceduren Methoden

Ein Thema von epm5 · begonnen am 4. Mai 2021 · letzter Beitrag vom 30. Jun 2021
Antwort Antwort
epm5

Registriert seit: 8. Jan 2013
5 Beiträge
 
#1

Records Proceduren Methoden

  Alt 4. Mai 2021, 11:14
Hallo,

beim Versuch einer Recordkonstanten eine feste Methode zuzuweisen, erhalte ich die Fehlermeldung: Konstantenausdruck erwartet


Was mache ich da falsch?
Der Versuch eine Prozedur zuzuweisen geht ohne Probleme


program Project1b;

uses
Forms,
MyRec in 'MyRec.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

// #####################

unit MyRec;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
procedure doit;
end;

var
Form1: TForm1;

procedure Test;

implementation

{$R *.dfm}

type
TRec = record
s: string;
p: procedure;
m: procedure of object;
end;

Const
// Rec: TRec = (s: 'u'; p: Test); // wird compiliert
Rec: TRec = (s: 'u'; p: Test; m: Form1.doit); // FEHLER: Konstantenausdruck erwartet !?

procedure Test;
begin
showmessage('Test');
end;

procedure TForm1.doit;
begin
Rec.p;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Rec.p;
showmessage(Rec.s);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
doit;
end;

end.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
39.658 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Records Proceduren Methoden

  Alt 4. Mai 2021, 21:07
Form1 ist eine Variable
Außerdem ist sie zu diesem Zeitpunkt eh leer, weil keine Form-Instanz drin. (falls es doch funktioniert hätte)

TForm1.doit, wenn es eine "class procedure" (für M) oder "class procedure; static" (für P) ist.



Und bitte [DELPHI]dein code[/DELPHI] drumrum.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
sariayers

Registriert seit: 30. Jun 2021
1 Beiträge
 
#3

AW: Records Proceduren Methoden

  Alt 30. Jun 2021, 08:51
Hallo Ja, das habe ich auch gemacht. vielen dank für deine antwort.
slope game free
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:58 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf