• Registered: 2018-07-13
  • Posts: 160

Topic: Изменение имени файла

Добрый день!
Есть скрипт

procedure Main_btn_pdf_OnAfterClick (Sender: TObject);
var
    sFile: string;
    sDest: string;
    sChild: string;
begin
    sFile := Main.frxPDFExport1.FileName;
    sChild := SQLExecute('SELECT FIO_child FROM Main WHERE id =' + IntToStr(Main.Table_main.dbitemid));

    sDest := 'C:\Users\Vitaly\Desktop\Справки\';

    if ForceDirectories(sDest) then
    begin
        CopyFile(sFile, sDest + 'Справка для ' + sChild + '.pdf');
    end;

    DeleteFile(sFile);
end;

В поле ФИО ребенка указаны ФИО (полностью в родительном падеже).
Возможно ли выводить в имени файла Только фамилию и инициалы ребенка?

  • From: Рідна МАТИ, UKRAINE
  • Registered: 2018-06-02
  • Posts: 1,371

Re: Изменение имени файла

Для sChild используйте функцию SplitString(,).
Затем соберите себе то, что вам нужно.

  • Registered: 2018-07-13
  • Posts: 160

Re: Изменение имени файла

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

procedure crop (Sender: TObject);
var
    ArrString: array of string;
begin
    ArrString := SplitString(Frm_add_reference.add_FIO_child.Text,' ');
    Frm_add_reference.short_fn.Text := ArrString[0];
    Frm_add_reference.short_sn.Text := ArrString[1];
    Frm_add_reference.short_pn.Text := ArrString[2];
end;

Может быть неправильно, но работает.

  • From: Рідна МАТИ, UKRAINE
  • Registered: 2018-06-02
  • Posts: 1,371

Re: Изменение имени файла

На счет первых или любых одиночных символов в строке ответ найдете здесь.


http://www.delphikingdom.com/asp/viewit … logid=1182

  • Registered: 2018-07-13
  • Posts: 160

Re: Изменение имени файла

sparrow wrote:

На счет первых или любых одиночных символов в строке ответ найдете здесь.


http://www.delphikingdom.com/asp/viewit … logid=1182

Спасибо. Читаю, но не имею профильного образования (самоучка) и на примере в MVD было бы проше разобраться.

  • From: Рідна МАТИ, UKRAINE
  • Registered: 2018-06-02
  • Posts: 1,371

Re: Изменение имени файла

Для вашего вопроса не нужно быть программистом.
Профильное образование еще не признак ...

Прочитайте параграф 2.10.2.

  • Registered: 2018-07-13
  • Posts: 160

Re: Изменение имени файла

sparrow wrote:

Для вашего вопроса не нужно быть программистом.
Профильное образование еще не признак ...

Прочитайте параграф 2.10.2.

Еще раз благодарю! Добавил в квадратных скобках [1] и работает.