Witam!
Mam zapisane w pliku wykres.txt wartości w taki sposób:
1 1
2 4
3 9
4 16
5 25
6 36
7 49
8 64
9 81
10 100
i teraz chcialbym je sczytać tak zeby pierwszą kolumnne wpisalo do tablicy x, drugą do tablicy y i potem wykreśliło na na TChart. Napisałem do tego taki kod:
var
Form1: TForm1;
i, p : Integer;
Lines : array of String;
x_rys, y_rys : array of Integer;
II, III : String;
AssignFile(plik,'wykres.txt');
if FileExists('wykres.txt') then
begin
reset(plik);
i:=1;
while not (EOF(plik)) do
begin
readln(plik, Lines[i]);
p := Pos(#9, Lines[i]);
II := Copy(Lines[i], 1, p-1);
x_rys[i] := StrToInt(II);
p := Pos(#9, Lines[i]);
Delete(Lines[i], 1, p);
p := Pos(#10#13, Lines[i]);
III := Copy(Lines[i], 1, p-1);
y_rys[i] := StrToInt(III);
Form1.Series2.AddXY(x_rys[i],y_rys[i]);
inc(i);
end;
CloseFile(plik);
end;
Program się kompiluje lecz przy pobieraniu danych i rysowaniu sie wiesza. Gdzie mogę mieć błąd?
Proszę o pomoc :)