Schule Adressbuch

[DAVKO]

der termin ist seid mo bekannt, sie hat auch angweangen aber bis auf:

Code:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  NV:array[1..5,1..50] of string;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
NV[1,1]:='Julian';
NV[2,1]:='Manske';
NV[3,1]:='Stockelsdorf';
NV[4,1]:='17';
NV[5,1]:='14.01.1994';
Edit1.Text:= NV[1,1];
Edit2.Text:= NV[2,1];
Edit3.Text:= NV[3,1];
Edit4.Text:= NV[4,1];
Edit5.Text:= NV[5,1];

end;

end.

steht da nix. waehre auch bereit was zu zahlen. wichtig ist nur, das sie nicht wieder eine 6 da tehen hat...