arrayfeld???

[gundi]

leut kann mir jemand erklären was unter einem array feld vorzustellen ist???

[Matze]

Willkommen in der DP!

Code:

        | Spalte1 | Spalte2 | Spalte3 | Spalte4
-----------------------------------------------
Zeile1  |    5    |    3    |    6    |    4
Zeile2  |    4    |    2    |    5    |    4
Zeile3  |    7    |    1    |    2    |    3
Zeile4  |    4    |    0    |    8    |    5

So ist z.B. ein 4x4 Array Feld aufgebaut.

Delphi-Quellcode:

Felder: array[1..4, 1..4] of integer

in meinem Fall


Die Felder lassen sich so ansprechen:

Delphi-Quellcode:

a := Felder[1,1];  //Feld(1/1)
a := Felder[3,4];  //Feld(3/4)

a ist eine Integervariable

[gundi]

aber wie wird es im programm benutzt??könnt ihr mir paar beispiele geben???

[Matze]

Alles umsonst geschrieben :cry:


Angenommen, in den Spalten sind Namen.

Man könnte theoretisch dann in Zeile1 die Straße, in zeile 3 die Telefonnummer, ... speichern.

Normalerweise macht man das zwar nicht mittels array, geht aber auch.


Wie man es in Delphi verwendet, steht doch oben schon.

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Multimedia" nach "Object-Pascal / Delphi-Language" verschoben.
Hat mit Multimedia nicht wirklich etwas zu tun.

[Matze]

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;

[gundi]

yow danke yungs ihr seid helden!!!!!

[Matze]

Ich bin doch nur ein Junge :mrgreen: :mrgreen:

[gundi]

aber kein anfänger :warn: