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

[Bilargo]

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

а так Ф-ия Pos Copy ну и по мне через StringList удобнее работать кстати в нём и поиск строк есть.

Ну, а как выразить, чтобы машина открывала файл, производила выборку по заданным параметрам, и выводила их на экран?

[quit]

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

Ну, а как выразить, чтобы машина открывала файл, производила выборку по заданным параметрам, и выводила их на экран?

Используйте регулярные выражения или так как советовал SERG1980...
Другого не дано.

[Bilargo]

Используйте регулярные выражения или так как советовал SERG1980...
Другого не дано.

Я не знаю как создать условия диапазона от и до.

[quit]

Если у вас в файле творится полная анархия то тогда только руками указывая "Что Где Откуда", а если есть какая нибудь структура, то тогда можно использовать либо регулярные выражения, либо функциями Pos и Str из StringList опять же по правилам разбирать, попутно сравнивая с введенными датами, и кидать в Memo.

[ОДИНОЧЕСТВО В СЕТИ]

  var
  st:string;
  s:array [1..5] of string;
  i:integer;
  k,n:string;
  function GetWord(Str, Smb: string; WordNmbr: Byte): string;
var
  SWord: string;
  StrLen, N: Byte;
begin

  StrLen := SizeOf(Str);
  N := 1;

  while ((WordNmbr >= N) and (StrLen <> 0)) do
  begin
    StrLen := Pos(Smb, str);
    if StrLen <> 0 then
    begin
      SWord := Copy(Str, 1, StrLen - 1);
      Delete(Str, 1, StrLen);
      Inc(N);
    end
    else
      SWord := Str;
  end;

  if WordNmbr <= N then
    Result := SWord
  else
    Result := '';
end;
  begin
  { TODO -oUser -cConsole Main : Insert code here }
s[1]:='12.10.2009 11*C';
s[2]:='13.10.2009 12*C';
s[3]:='14.10.2009 13*C';
s[4]:='15.10.2009 16*C';
n:='10.10.2009';
k:='14.10.2009';
for i:= 1 to 4 do
 if (GetWord(s[i],' ',1)>=n) and (GetWord(s[i],' ',1)<=k) then Writeln(s[i]);
 readln;
end.

так устроит? GetWord-взята из delphiworld
результат

12.10.2009 11*C
13.10.2009 12*C
14.10.2009 13*C

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var ST:TSTringList;
    i:integer;
    D:TDate;
    S:String;
begin
 ST:=TSTringList.Create;
 ST.LoadFromFile('d:\11.txt');
 for i:=0 to ST.Count-1 do
 begin
  S:=ST[i];
  Delete(S,1,Pos(' ',S));
  D:=StrToDate(Copy(S,1,Pos(' ',S)-1));
  if (D>=form1.DateTimePicker1.Date) and (D<=form1.DateTimePicker2.Date) then
  begin
   while Pos(' ',S)>0 do Delete(S,1,Pos(' ',S));
   memo1.Lines.Add(datetostr(d)+' '+S);
  end;
 ST.Free;
 end;
end;

[Bilargo]

так устроит? GetWord-взята из delphiworld
результат

Не совсем, кол-во строк у нас может быть и не 4, а допустим 16, и диапазон значений задается компонентами датетаймпикер.

[ОДИНОЧЕСТВО В СЕТИ]

кол-во строк у нас может быть и не 4

что мешает считывать текстовик построчно и загонять в массив???

компонентами датетаймпикер

ну да дату в строку ж переводить это 3 часа делов!

[Bilargo]

procedure TForm1.btn1Click(Sender: TObject);
var ST:TSTringList;
i:integer;
D:TDate;
S:String;
begin
ST:=TSTringList.Create;
ST.LoadFromFile(edt1.Text);
for i:=0 to ST.Count-1 do
begin
S:=ST[i];
Delete(S,1,Pos(' ',S));
D:=StrToDate(Copy(S,1,Pos(' ',S)-1));
if (D>=form1.dtp1.Date) and (D<=form1.dtp2.Date) then
begin
while Pos(' ',S)>0 do Delete(S,1,Pos(' ',S));
mmo1.Lines.Add(datetostr(d)+' '+S);
end;
ST.Free;
end;
end;
end.

Применил под свою структуру кода, но при попытке запуска процедуры, вылетает ошибка.

[Bilargo]

ну да дату в строку ж переводить это 3 часа делов!

Давайте без сарказма пожалуйста, не думаю, что вам было бы приятно, слышать такое в ваш адрес, поставьте себя на моё место. Я всего на всего студент, который пытается понять, и мне не всё сразу дается, а такие люди как вы просто отбивают желания, что-то понимать.