Файлы...

[Jeffrey_4]

как считать в среде Турбо Паскаль из текстового файла
(например: d:\test.txt), содержащего текст:25_may_2011
(где "_"-это пробелы),так чтобы данные из файла были
следующих типов:
d:=25:integer;
m:=may:string;
y:=2011:integer;
Спасибо!

[Zer0]

var d,y:integer; m:string; f:text; c:char;
begin
assign(f,'D:\test.txt');
reset (f);
read(f,d);
c:=''; m:='';
while c<>' ' do begin
 read(f,c);
 s:=s+c;
end;
read(f,y);
end.

[IT-man]

считывай строку--> копируй до 1 пробела(25) переводи в число---> копируй от пробела до пробела(may) записывай в строку---> остаток(2011) переводи в число

[Jeffrey_4]

Откуда там : s:=s+c;Зачем?!

[Zer0]

Сообщение от Jeffrey_4

Откуда там : s:=s+c;Зачем?!

посимвольное считывание до пробела, а только что прочитанный символ нужно же куда то сохранить)