1:
2:
3:
4:

type AdressRecord = record 
name: string; 
plz: integer; 
var adressen: AdressREcord;					

1:

adressen.name:='Mayer';					

1:
2:

writeln('GEben sie den NAmen und die PLZ ein!') 
readln(Adressen.name, Adressen.plz);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

 PAdressRecord = ^TAdressRecord;
type TAdressRecord = record   //Typen haben immer ein "T" vorne am  Namen
  name: string;  
  plz: integer;  
  var adressen: PAdressREcord;  //LinkedList?
end; 

procedure EtwasTunMitdemRecord;
var
  PRec: PAdressRecord;
begin
  New(PRec);
  try
    ....//Arbeiten mit dem Record
  finally
    Dispose(PRec); //Speicher wieder frei geben
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Type
  tAdresse = Record
      Name: String;
      Ort: String
    End;

Var 
  Adr: tAdresse;

{...}

Adr.Name := 'Tino'
Adr.Ort := 'Greven';					

1:

var Adressen:Array[0..100] of TAdresse;					

1:
2:
3:
4:

type AdressRecord = record  
name: string;  
plz: integer;  
var adressen: AdressREcord;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

program Project1;
{$APPTYPE CONSOLE}

uses
  Windows, Classes, SysUtils;

type TAdressRecord = record
    name: string;
    plz: integer;
  end;

var
  s: String;
  sl: TStringList;
  Adressen: TAdressREcord;

begin
  writeln('Geben sie den Namen und die PLZ ein! (getrennt durch Komma)');
  readln(s);

  sl := TStringList.Create;
  try
    sl.CommaText := s;
    if sl.Count <> 2 then
    begin
      MessageBox(0, 'Fehler bei der Eingabe', nil, 0);
      Halt;
    end;
    Adressen.name := sl[0];
    Adressen.plz := StrToIntDef(sl[1], -1);
  finally
    sl.Free;
  end;

  writeln('Die Eingaben waren:');
  writeln(Adressen.name);
  writeln(IntToStr(Adressen.plz));
  readln;
end.					

1:
2:
3:
4:

writeln('Geben sie den Namen ein!') 
readln(Adressen.name);
writeln('Geben sie die PLZ ein!') 
readln(Adressen.plz);					

1:
2:

Adressen.name := edit1.Text;
Adressen.plz := Edit2.Text;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

function GetToken(aString: String; SepChar: Char; TokenNum: Byte):String; 
var 
   Token     : String; 
   StrLen    : Byte; 
   TNum      : Byte; 
   TEnd      : Byte; 

begin 
  StrLen := Length(aString); 
  TNum   := 1; 
  TEnd   := StrLen; 
  while ((TNum <= TokenNum) and (TEnd <> 0)) do begin 
    TEnd := Pos(SepChar,aString); 
    if TEnd <> 0 then begin 
      Token := Copy(aString,1,TEnd-1); 
      Delete(aString,1,TEnd); 
      Inc(TNum); 
    end else Token := aString; 
  end; 

  if TNum >= TokenNum then 
    Result := Token 
  else begin 
    MessageDlg('Fehler: Tokennummer(' + aString + ' )ist größer als token !',mtError, [mbok], 0); 
    Result := 'Fehler: Tokennummer(' + aString + ' )ist größer als token !'; 
  end; 
end; 

function getWerte(werte:String;index:Integer);
var
  i:Integer;
begin
  result:=GetToken(werte,',',index);
end;

// Beispiel:
procedure test;
var
  str:String;
begin
  str:='Michael,Springwald,Telefon,Hausnummer';
  Showmessage('Dein Vornamen lautet: '+ getWerte(str,1) );
end;