textbestand einlesen mit 2D array...

[student]

hallo nochmal,
vielen dank für die vielen und schnellen antworten. wir sind jetzt so weit, dass jede 3. zahl aus dem bestand eingelesen wird, keine ahnung warum. leider immer noch nciht spalte für spalte. einlesen müssen wir das ganze aus einer textfile...wäre toll, wenn vielleicht jemand eine idee hätte...hier mal ein auszug unseres codes:

Delphi-Quellcode:

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
TkolomArray = array[0..511] of real;
TdataArray = array[0..7] of Tkolomarray;
var
  Form1: TForm1;
  openarray : Tdataarray;
  closedarray: Tdataarray;
  mijntext: textfile;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
j: integer;
i:integer;
k:integer;
l:integer;

begin
assignfile(mijntext,'open.txt');
reset(mijntext);
i:=0;
j:=0;
while not(eof(mijntext)) do begin
read (mijntext, openarray[i,j]);

for l:=0 to j do begin
 read(mijntext, openarray[i,j]);

 for k:=0 to i do begin
 read (mijntext, openarray[i,j]);

 memo1.lines.add(floattostr(openarray[i,j]));
 end;
 end;
end;
 closefile(mijntext);
end;

end.

vielen dank nochmal und ein schönes wochenende allerseits....

[edit=Christian Seehase]Delphi-Tags gesetzt, bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]