Как выводить данные?

[SERG1980]

Какая именно, на какой строке ругается. у меня всё работает

Времени к сожалению у меня больше нет (короткая смена) Вот вам проект
смотрите разбирайтесь
PS Вот и догнал до профессионала
Всех с праздником

[Bilargo]

Решил сделать по своему))) Все окей =)

procedure TForm1.btn1Click(Sender: TObject);
var f:TextFile;
s,s_data,s_davl:string;
ind:integer;
dat:TDateTime;
begin
AssignFile(f,Edt1.Text); //ñâÿçàëè ôàéëîâóþ ïåðåìåííóþ ñ ôàéëîì, èìÿ êîòîðîãî çàïèñàíî â ýäèò
if FileExists(Edt1.Text) //åñëè ôàéë ñóùåñòâóåò
then begin
Reset(f); //íà ÷òåíèå, óêàçàòåëü â íà÷àëî ôàéëà
Mmo1.Clear;
while (not eof(f)) do // ïîêà íå êîíåö ôàéëà...åîô âîçâðàùàåò èñòèíó êîãäà äîõîäèì äî êîíöà ôàéëà
begin
readln(f,s); //ñ÷èòûâàåì ñòðîêó èç ôàéëà
ind:=Pos(' ',s); //ïîñ âîçâðàùåò ïîçèöèþ âõîæäåíèÿ ïîäñòðîêè â ñòðîêó, èùåì ïðîáåë è âîçâð íîìåð
s_data:=copy(s,1,ind-1); //ñêîïèðîâàëè ïîäñòðîêó èç ñòðîêè ñ, ñ 1ãî ñèìâîëà , èíä ìèíóñ 1 êîëâî ñèìâîëîâ
s_davl:=copy(s,ind+1,length(s)-ind); //ïîñëå ïðîáåëà äî êîíöà ñòðîêè
dat:=StrToDate(s_data); //ïðåîáðàç ñòðîêó ê òèïó TDateTime
if (dat>=(dtp1.Date)) and (dat<=dtp1.Date) //äàòà ïîïàëà â äèàïàçîí òî â ìåìî
then Mmo1.Lines.Add('Äàòà '+s_data+' Äàâëåíèå '+s_davl); //ýää äîáàâëÿåò ñòðîêó â êîíåö ñïèñêà ñòðîê êîìïîíåíòà ìåìî, ëàéíñ ñïèñîê ñòðîê
end;
if (Mmo1.Lines.Count=0 ) then Mmo1.Lines.Add('íåò èíô. â óêàçàííîì äèàïàçîíå');
end
else ShowMessage('no'); //ôàéëà íåò
end;

end.