(Co-Admin)
Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
Turbo Delphi für Win32
|
Re: arrayfeld???
26. Jan 2004, 12: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;
|
|
Zitat
|