My Visual Database — Изменение имени файла

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

null@example.com (Vickus) — Sun, 04 May 2025 11:50:20 +0000

sparrow wrote:

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

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

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

null@example.com (sparrow) — Sun, 04 May 2025 11:43:11 +0000

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

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

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

null@example.com (Vickus) — Sun, 04 May 2025 11:19:58 +0000

sparrow wrote:

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

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

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

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

null@example.com (sparrow) — Sun, 04 May 2025 10:40:44 +0000

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

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

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

null@example.com (Vickus) — Sun, 04 May 2025 09:44:45 +0000

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

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;

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

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

null@example.com (sparrow) — Sat, 03 May 2025 18:31:46 +0000

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

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

null@example.com (Vickus) — Sat, 03 May 2025 06:33:29 +0000

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

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;

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