type-Deklaration

[gipfelstürmer]

Delphi-Quellcode:

unit USpieler;

interface

type
  TSpieler = class(TObject)
  Tspielerarray = array[1..2] of string;

private

public
  name,nachname:string;
  team:integer;
  constructor create;
  procedure setinfos(feld:string; feld1:string);
  function getinfos:Tspielerarray;
end;