Thema: Delphi arrayfeld???

Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: arrayfeld???

  Alt 26. Jan 2004, 11:10
Hier noch das Beispiel mit den Adressen, mehr sag ich aber nicht, mehr, das Forum hat auch ne tolle Suchfunktion!

Delphi-Quellcode:
var
  Form1: TForm1;
  Daten: array[1..4, 1..4] of string;

implementation

{$R *.dfm}

//Daten ins Array schreiben:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Daten[1, 1] := 'Matze';
    Daten[1, 2] := 'Matzes Straße';
    Daten[1, 3] := 'PLZ';
    Daten[1, 4] := '0160 9265...';
  Daten[2, 1] := 'sakura';
    Daten[2, 2] := 'sakuras Straße';
    Daten[2, 3] := 'PLZ';
    Daten[2, 4] := '0170 8363...';
  Daten[3, 1] := 'Luckie';
    Daten[3, 2] := 'Luckies Straße';
    Daten[3, 3] := 'PLZ';
    Daten[3, 4] := '0177 7826...';
  Daten[4, 1] := 'Daniel';
    Daten[4, 2] := 'Daniels Straße';
    Daten[4, 3] := 'PLZ';
    Daten[4, 4] := '0520 9641...';
end;

//Daten auslesen:
procedure TForm1.Button2Click(Sender: TObject);
var Name1: string;
    Strasse1: string;
begin
  Name1 := Daten[4, 1]; //Daniel
  Strasse1 := Daten[3, 2]; //Luckies Str.
end;
  Mit Zitat antworten Zitat