Hallo Zusammen,
ich möchte in Delphi eine Text-Datei erstellen und die Abstände und zugehörige x, y Koordinaten sind drin, Format wie folgendes (nur Beispiel-->x, y: integer; MiniAbstand:real; x:0-9, y:0-19, also 10x20),
ABER erste Zeile ("x y Abstand") wird in dieser Textdatei NICHT angezeigt
x y Abstand
0 19 1.435
1 19 2.312
2 19 1.112
3 19 5.123
.. .. ...
8 19 1.231
9 19 3.123
0 18 2.123
1 18 6.123
2 18 2.345
3 18 1.234
.. .. ...
8 18 3.112
9 18 4.567
0 17 2.567
1 17 2.111
2 17 6.123
.. .. ...
9 17 7.123
0 16 2.678
1 16 3.345
2 16 3.890
.. .. ...
.. .. ...
0 5 7.001
1 5 2.567
2 5 3.345
.. .. ...
9 5 1.113
0 4 2.123
1 4 3.321
.. .. ...
0 0 2.234
1 0 1.567
2 0 5.132
.. .. ...
7 0 7.123
8 0 1.127
9 0 2.980
Hier sind die Code
Delphi-Quellcode:
Type
TAbstand = record
Nr: integer;
Abs: real;
end;
.
.
.
var
Abstaende: array of array of TAbstand;
.
.
.
procedure TForm1.Button4Click(Sender: TObject);
var
MiniAbstand:real;
Nummer:integer;
i, j:integer;
F:Textfile;
begin
AssignFile(F, 'List_Abstand.txt');
for i:=0 to 19 do
begin
for j:=0 to 9 do
begin
Nummer:=Abstand(MiniAbstand,Dreiecke);
Abstaende[i,j].Nr:=Nummer;
if Nummer > 0 then
Abstaende[i,j].Abs:=MiniAbstand
else
Abstaende[i,j].Abs:=1000;
Writeln(F,j,' ',19-i,' ',Abstaende[i,j].Abs);
end;
end;
end;
:
Funktion 'Abstand' ist von mir selbst geschrieben, hier j entspricht x in Textdatei, und i entspricht y.
Compile ist ganz in Ordnung, ohne Fehlermeldung, ab wenn ich das Programm durchführte, bekommen ich "I/O Error 103", wo kann der Fehler liegen?
Vielen Dank!
Gruss
Lee