Property mit Record als Typ in Klasse verwenden

[EWeiss]

Du kannst genau so gut das alles..

Delphi-Quellcode:

  Property TotalWidth: integer read fMyRecord.TotalWidth write FMyRecord.TotalWidth;
   Property ColWidth1 : integer index 1 read GetMyColWidth write SetMyColWidth; 
   Property ColWidth2 : integer index 2 read GetMyColWidth write SetMyColWidth; 
   Property ColWidth3 : integer index 3 read GetMyColWidth write SetMyColWidth;

in den Record kopieren.

Wie gesagt in diesen Fall würde ich auf den Record verzichten macht keinen Sinn.

gruss

[Ghostwalker]

Das kann man so global nicht sagen. Es hängt auch davon ab, was noch damit gemacht wird. Rein auf das Beispiel bezogen, hast du natürlich recht.

Gibts aber z.B. eine zweite Klasse:

Code:

Type
  TMyClassList = Class
  private
    flist : TList<TMyRecord>
  public
    :

sieht es schon anders aus.

[EWeiss]

Zitat:

Gibts aber z.B. eine zweite Klasse:

Nun das wäre dann eine
Denn bei ihr sind es zwei records.

simple sample..

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TMyRecord  = record
  private
    FTotalWidth  : integer;
    procedure SetTotalWidth(const Value: Integer);
  public
    property TotalWidth : Integer read FTotalWidth write SetTotalWidth;
  end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    FMyRecord : TMyRecord;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    FMyRecord.TotalWidth := 21;
    Label1.Caption := IntToStr(FMyRecord.TotalWidth);
end;

{ TMyRecord }

procedure TMyRecord.SetTotalWidth(const Value: Integer);
begin

  FTotalWidth := Value;
end;

end.

Egal.. sie\er soll sich aussuchen was er will.

gruss

[DieDolly]

Ich habe das jetzt so gemacht

Delphi-Quellcode:

  TMyRecord = Record
    Changed : Boolean;
    TotalWidth : Integer;
    WidthCol1 : Integer;
    WidthCol2 : Integer;
    WidthCol3 : Integer;
   end;

type
 TMyWasAuchImmer = record // ja ich weiß es ist keine Class und sollte es auch nicht so nennen. Daher nun "WasAuchImmer"
 private
 public
  MyRecord: TMyRecord;

  procedure Bla;
 end;

procedure TMyWasAuchImmer.Blub;
begin
 MyRecord.TotalWidth := 42;
end;


// von außen aufrufen
showmessage(TMyWasAuchImmer.MyRecord.TotalWidth.ToString);

Für alle anderen einfachen Datentypen verwende ich weiterhin getter, setter, read, write, property und all das.

[EWeiss]

Zitat:

Ich habe das jetzt so gemacht
Für alle anderen einfachen Datentypen verwende ich weiterhin getter, setter, read, write, property und all das.

Entspricht zwar nicht deiner Anfrage aber gut wenn es dir reicht.
Die Lösung mit Getter und Setter hast du ja nun falls du dich entschließen solltest es doch noch einmal zu versuchen.

gruss

[KodeZwerg]

Beitrag entfernt da Offtopic

[EWeiss]

Zitat:

wenn Du doch vor hast Dezimal-Werte von Form über Ini-Datei laden/speichern.

Ich weis jetzt nicht wo du die Erkenntnis her hast und passt nicht zu dem Thema.
Eigentlich war das Thema für sie schon erledigt was nicht heißen soll das du hier nichts schreiben darfst.

Trotzdem unverständlich.

gruss