Dzień dobry
Chciałbym odczytać dane zapisane w postaci naukowej np 3.281e-01 1.546e-02-1.338e+00 z pliku tekstowego. Mam jakis bląd chyba cos przy końcu i nie moge odczytać tych danych.
type
Tpunkty = record
X, Y : real
end;
var f:textfile; //zmienna pomocnicza do obsługi plików
tab : array of Tpunkty ;
i:integer;
begin
if opendialog1.Execute then
begin
assignfile(f, opendialog1.FileName);
reset(f);
i:=0;
Image1.Repaint; //zabezpieczenie na wypadek ponownego wczytania pliku ale już z inna serią danych, czyli wyczyszczenie pola wykresu
while not eof(f) do
begin
i:=i+1; // zliczanie ilości wczytanych punktów do tablicy Tab
SetLength(Tab, 3);
read(f, tab[i].x); //wczytanie do tablicy Tab współrzędnej X
read(f, tab[i].y); //wczytanie do tablicy Tab współrzędnej Y
end;
closefile(f);
begin
Showmessage(FloatToStr(tab[2].X));
end;
end;
end;