Brauche Starthilfe für OOP mit Class und Methode

[Die Muhkuh]

Hi,

ich hab mal folgenden Lösungsvorschlag für Dich:

Delphi-Quellcode:

unit Unit3;

interface

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

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

  TSatz = class(TObject)
  private
    FGeb: String;
    FName: String;
    function GetID: string;
  public
    property Name: String read FName write FName;
    property Geb: String read FGeb write FGeb;
    property ID: string read GetID;
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

{ TSatz }

function TSatz.GetID: string;
var
  tmpDatum: String;
  tmpName: String;
  tmpInitial: String;
begin
  tmpDatum := StringReplace(Geb, '.', '', [rfReplaceAll]);
  tmpName := Trim(Name);
  tmpInitial := tmpName[1] + Copy(tmpName, Pos(',', tmpName) + 2, 1);
  Result := tmpDatum + tmpInitial + '-0';
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  Satz: TSatz;
begin
  Satz := TSatz.Create;
  Satz.Name := 'Rauber, Manuel';
  Satz.Geb := '07.09.90';
  ShowMessage(Satz.ID);
end;

end.

Hier gibt es einen kleinen Crashkurs zur OOP.