Anonymní profil Anonymní uživatel – Programujte.com

To Mircosoft : ahoj a diky za navigaci. Povedlo se :). zdravi p.k.

To Yety : ahoj a díky za reakci. Bona fide jsem ucinil dle rady. Zdroj nyni vypada takto (viz nize), ale v zaznam(1) je cela radka dat, takze mam zmatek v tom, jak jit o jednotlivych znacich a hledat oddelovac(carku). Pokud bych mohl pozadat o formalni upravu tak abych cisla mel jako real, resp. int, myslim ze dalsi algoritmizaci zvladnu.
hezký večer
p.k.

program test_MA;
var
zaznam: array [1..47] of string;
data: array [1..2,1..10] of string;
OLHC: array [1..3,1..10] of real;
vol: array [1..10] of integer;
f: text;
i: byte;

begin
assign(f,'c:\soubor.txt');
{$I-}
reset(f);
{$I+}
if (IOResult=0) then
begin
while not eof(f) do
begin
for i:=1 to 7 do
begin
read(f,zaznam[i]);
end;
writeln(zaznam[1]);
writeln(zaznam[2]);
writeln(zaznam[3]);
readln(f);
end;
close(f);
end;
end.

ahoj,
muže někdo prosím nepogramátorovi poradit, jak číst z .txt souboru data násl. formátu?
5.3.2009,02:40,1.2607,1.2620,1.2607,1.2615,70
5.3.2009,02:50,1.2614,1.2615,1.2598,1.2602,69
5.3.2009,03:00,1.2601,1.2611,1.2601,1.2610,47
(datum,čas,4xreal,integer)