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]