исправить программу(архив внутри)

[west.by]

переделал слегка-но явно нужно не так-а как тогда?

добавил на форму тимемо куда вводится конечная дата и мемо4 в которой уже находится осортированная инфа-нужно посчитать количество в днях и вывести в мемо4

[west.by]

procedure TForm1.Button5Click(Sender: TObject);
var
k,m:string;
str1,str2: String;
DateTime1,DateTime2:TdateTime;
Days_: Integer;

begin   // Вывод информации о работниках с наибольшим стажем
Memo1.Clear; Memo2.Clear; Memo3.Clear;
Reset(f);
While Not EOF(f) Do
Begin
 Read(f,w);
 k:=strtofloat(memo3.text);
 m:=strtofloat(memo5.text);
 str1:='k'; //пример даты-время///
str2:='m';
DateTime1:= StrToDateTime(str1); //- переводит строку, типа 15.05.2010 в переменную типа TdateTime
DateTime2:= StrToDateTime(str2);
   if DateTime1>DateTime2  then ShowMessage(str1+' > '+str2)
 else
  if DateTime1<DateTime2  then ShowMessage(str1+' < '+str2)
  else ShowMessage(str1+' = '+str2);
end;
str1:='k';
str2:='m';
DateTime1:=StrToDate(str1);
DateTime2:=StrToDate(str2);//StrToDate(str2);
 

///рассчитываем количество дней между двумя датами///
  Days_:= DaysBetWeen(DateTime1,DateTime2);
 ShowMessage('между ними '+IntToStr(Days_)+' дней');

 {Расчитываем текущую дату}
 DateTime1:=Now;

 memo4.Lines.add(days_,ffixed,6,0)


end;

end.

[vovk]

чтоб посчитать разницу в днях надо всего лиш отнять одну дату от другой, и потом работать с остатком как с float а не как с датой

var
i:integer;
begin
//очищаем мемо2
memo2.lines.clear;
//тут цикл с 0 до количество линий в мемо-1
//отсчёт в Tstringlist идёт с 0
for I := 0 to Memo1.Lines.Count - 1 do
//в цикле отнимаем от текущей даты дату которая содержится в линии номер i
//memo1 остаток переводим из float в строку и добавляем 
//в мемо2 
memo2.Lines.Add(floattostr(date-strtodate(Memo1.Lines.Strings[i])))
end;

[west.by]

а если в мемо не одна запись? если из N то операци ядолжна повториься N Раз? если да-то как заставить компилятор провести несколько раз разницу и поместить соответсвенно не в окне всплывающем а в форму...?

[vovk]

для этого и существует цикл

I := 0 to Memo1.Lines.Count - 1 do

и результат помещаю в memo2.lines

memo2.Lines.Add(floattostr(date-strtodate(Memo1.Lines.Strings[i])))

эти вычисления происходят при каждом прохождении тела цикла i тут счётчик прохождений, тоесть каждое прохождение значение i увеличивается на 1 и соответственно
Memo1.Lines.Strings[i] каждое прохождение цикла берёт значение из следующей линии

[west.by]

можно поподробнее про весь цикл

[vovk]

там всего 2 строчки остальное коментарий

for I := 0 to Memo1.Lines.Count - 1 do
memo2.Lines.Add(floattostr(date-strtodate(Memo1.Lines.Strings[i])))

[west.by]

procedure TForm1.Button5Click(Sender: TObject);
var

i:integer;
begin
Memo1.Clear; Memo2.Clear;
Reset(f);

Begin
memo5.lines.clear;
for I := 0 to Memo3.Lines.Count - 1 do
Memo5.Lines.Add(floattostr(date-strtodate(Memo1.Lines.Strings[i])))
end;

end.

мемо5-там где должно все появиться
мемо4-одна дата
memo3-с новой строки много дат

и что-то не получается все рвавно...

[vovk]

Сообщение от west.by

procedure TForm1.Button5Click(Sender: TObject);
var

i:integer;
begin
Memo1.Clear; Memo2.Clear;
Reset(f);

Begin
memo5.lines.clear;
for I := 0 to Memo3.Lines.Count - 1 do
Memo5.Lines.Add(floattostr(date-strtodate(Memo1.Lines.Strings[i])))
end;

end.

мемо5-там где должно все появиться
мемо4-одна дата
memo3-с новой строки много дат

и что-то не получается все рвавно...

наверное всётаки Memo3 а не Memo1, выделил красным

[west.by]

а семен семеныч... все понятно.спасибо.