Серверы автоматизации Delphi

[delvan]

Здравствуйте.Помогите,пожалуйста.За дание:Создать приложение, с помощью которого пользователь может создать документ, содержащий поздравление с праздником. Экранная форма приложения обязательно должна содержать список адресатов, группу радиокнопок для выбора праздника и мемо-поле для ввода текста поздравления. Список адресатов должен загружаться из файла. При выборе праздника в мемо-поле должно помещаться типовое поздравление с праздником.

[stalker1995s]

Приветствую, задача довольно большая на онлайн помощи, скидываю вам свой очень старый проект, суть в нем та же, это небольшой почтовый менеджер. Адресаты грузятся из файлов, указывается тема письма, и конечно же само письмо. Подшманьте под свои нужны

Ссылочка на Яд Диск:
https://yadi.sk/d/nAtPDCZEdUV7k

[Stilet]

Ниче так заданьеце...
А чем помочь? Что непонятно?

[delvan]

Спасибо большое!буду разбираться

[delvan]

Многое было непонятно,но благодаря посту доброго человека выше,кое что начало прояснятся.ищу похожие программы.

[delvan]

Здравствуйте!Помогите,пожалуйста,ра зобраться с условиями RadioGroup. В данной программе,когда я выбираю,например,мужской пол,пишется все равно женский и тоже самое с выбором праздника.Т.е. независимо от того,какую кнопку нажмешь,выбирается все равно 2-я кнопка.

procedure TForm1.BFontClick(Sender: TObject);
begin
  if FontDialog1.Execute then
    Memo1.Font.Assign(FontDialog1.Font);
end;

procedure TForm1.BBpClick(Sender: TObject);
var
   W: Variant;
   i: integer;
   s: string;

   procedure Insert(si: string);
   begin
      W.Font(Memo1.Font.Name, Memo1.Font.Size);
      if (fsBold in Memo1.Font.Style) then
      W.Bold;
      if (fsItalic in Memo1.Font.Style) then
      W.Italic;
      if (fsUnderline in Memo1.Font.Style) then
      W.Underline;
      W.Insert(si+#10);
    end;
begin
   W:=CreateOleObject('Word.Basic');
   W.AppShow;
   W.FileNew ;
   if RPol.ItemIndex=0 then
       Insert('Уважаемый, '+combobox2.Text+'! ')
   else
       Insert('Уважаемая, '+combobox2.Text+'! ')  ;
   W.AppShow;
   if RPr.ItemIndex=0 then
       Insert('Поздравляю  с  Новым  годом ! ')
   else
       Insert('Поздравляю  с  8-м  марта ! ')  ;
   for i:=0 to Memo1.Lines.Count do
       Insert(Memo1.Lines[i]);
   if RPr.ItemIndex=0 then
        s:='Записать данные в файл?'
      else
        s:='Напечатать письмо?';
   if MessageDlg(s, mtConfirmation, [mbYes, mbNo], 0) = mrYes     then
     if ROp.ItemIndex=0 then
        W.FileSave
     else
        W.FilePrint;
   W.DocClose(2);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var sl:TstringList;
     i:integer;
begin
ComboBox2.Text:='';
ComboBox2.Items.Clear;
  sl:=TStringList.Create;
  sl.LoadFromFile(combobox1.Text+'.txt');
  for i:= 0 to sl.Count - 1 do
   combobox2.Items.Add(sl.Strings[i]);
  sl.Free
end;

end.