В memo1 генерируются префиксы сначала строки, и а в memo3 с конца строки;
В memo2 - выводиться результат;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
Data: TDateTime;
begin
for i := 0 to Memo1.Lines.Count - 1 do
begin
Data:= DateTimePicker1.Date;
while Data <= DateTimePicker2.Date do
begin
Memo2.Lines.Add(Memo1.Lines[i] + FormatDateTime('dd/mm/yyyy', Data));
Data:= IncDay(Data, 1);
end;
end;
Проблема том что: Если memo1 пустой, а в memo3 есть текст, то префиксы в конце - не добавляются. (В этом то и проблема!!!).
А если в memo1 и в memo3 есть текст, то префиксы в конце - добавляются.
Предполагаю, что загвоздка в цикле: for i := 0 to Memo1.Lines.Count - 1 do (то есть, сюда, нужно добавить и memo3, если я правильно мыслю?).
Как: добавить условие:
Если и в **memo1 и в memo3 есть текст** то префикс **в начале и в конце** добавляется.
Если **memo1 есть текст**, а в **memo3 нет текста** то - префикс **в начале** добавляется.
Если в **memo1 нет текста**, а в **memo3 есть текст** то - префикс **в конце** добавляется.
Memo1.Lines[i]
не упадет с ошибкой еслиi
выходит за границы списка?for i := 0 to Min(Memo1.Lines.Count, Memo3.Lines.Count) - 1 do
?Math
в секциюuses
.