Горизонт

procedure TForm1.Button1Click(Sender: TObject);
var
  Employees: TEmployeeArray;
  Emp: TEmployee;
begin
  Employees := LoadEmployeesFromCSV('employees.csv');

  // Пример вывода в Memo или консоль
  for Emp in Employees do
  begin
    Memo1.Lines.Add(Format('%s %s %s — %s, тел: %s, родился: %s',
      [Emp.LastName, Emp.FirstName, Emp.MiddleName,
       Emp.Position, Emp.Phone,
       DateToStr(Emp.BirthDate)]));
  end;
end;

type
  TEmployee = record
    LastName: string;
    FirstName: string;
    MiddleName: string;
    Position: string;
    Phone: string;       // или Int64, если только цифры и без формата
    Email: string;
    BirthDate: TDate;    // дата в формате Delphi
    Address: string;
  end;

  TEmployeeArray = array of TEmployee;


---

uses
  System.SysUtils, System.Classes, System.DateUtils, System.StrUtils;

function LoadEmployeesFromCSV(const FileName: string): TEmployeeArray;
var
  CSVFile: TStringList;
  i: Integer;
  Fields: TArray<string>;
  Emp: TEmployee;
  Line: string;
begin
  SetLength(Result, 0);
  if not FileExists(FileName) then
    Exit;

  CSVFile := TStringList.Create;
  try
    CSVFile.LoadFromFile(FileName, TEncoding.UTF8); // Укажите кодировку, если нужно

    // Пропускаем заголовок (первую строку)
    if CSVFile.Count > 0 then
      CSVFile.Delete(0);

    for i := 0 to CSVFile.Count — 1 do
    begin
      Line := Trim(CSVFile[i]);
      if Line = '' then
        Continue;

      // Разделяем строку по запятым (базовый CSV-парсинг)
      // ⚠️ В реальном проекте лучше использовать полноценный CSV-парсер,
      // чтобы обрабатывать запятые внутри кавычек и т.п.
      Fields := SplitString(Line, ',');

      if Length(Fields) <> 8 then
        Continue; // Пропускаем строки с неправильным количеством полей

      Emp.LastName   := Fields[0];
      Emp.FirstName  := Fields[1];
      Emp.MiddleName := Fields[2];
      Emp.Position   := Fields[3];
      Emp.Phone      := Fields[4]; // или StrToInt64Def(Fields[4], 0) — если нужен числовой тип
      Emp.Email      := Fields[5];

      // Преобразуем дату из формата «дд.мм.гггг» в TDate
      if not TryStrToDate(Fields[6], Emp.BirthDate, 'dd.mm.yyyy') then
        Emp.BirthDate := 0; // или пропустить запись

      Emp.Address    := Fields[7];

      // Добавляем в массив
      SetLength(Result, Length(Result) + 1);
      Result[High(Result)] := Emp;
    end;

  finally
    CSVFile.Free;
  end;
end;

Realistic photo animation of a black-and-white historical photograph. Subtle, natural motion only: gentle blinking, slight head movement, soft breathing, wind in hair or clothes — nothing exaggerated. Preserve original facial features, clothing, and background details. No fantasy elements, no colorization unless specified. Maintain vintage film grain and authentic 20th-century aesthetic. Cinematic, documentary-style, emotionally grounded.

как фиксить

как это чинить

procedure ReplaceTextInWordDocument(const FileName, FindText, ReplaceText: string);
const
  wdReplaceAll = 2;
var
  WordApp, WordDoc, Find: OleVariant;
begin
  WordApp := CreateOleObject('Word.Application');
  try
    WordApp.Visible := False; // Или True — если нужно видеть процесс

    // Открытие документа
    WordDoc := WordApp.Documents.Open(FileName);

    // Получаем Find у всего содержимого документа
    Find := WordDoc.Content.Find;
    Find.ClearFormatting;
    Find.Replacement.ClearFormatting;

    // Настройка текста для поиска и замены
    Find.Text := FindText;
    Find.Replacement.Text := ReplaceText;

    // Выполнение замены
    Find.Execute(Replace := wdReplaceAll);

    // Сохраняем и закрываем документ
    WordDoc.Save;
    WordDoc.Close(False);
  finally
    WordApp.Quit;
  end;
end;

Папка автозагрузки Windows (для текущего пользователя):

<span class="hljs-built_in">C</span><span class="hljs-operator">:</span>\<span class="hljs-variable">Users</span>\<span class="hljs-operator"><</span>Имя<span class="hljs-type">_</span>Пользователя<span class="hljs-operator">></span>\<span class="hljs-variable">AppData</span>\<span class="hljs-variable">Roaming</span>\<span class="hljs-variable">Microsoft</span>\<span class="hljs-variable">Windows</span>\<span class="hljs-variable">Start</span> <span class="hljs-built_in">Menu</span>\<span class="hljs-variable">Programs</span>\<span class="hljs-variable">Startup</span>
 

Или проще:

• Нажми

  Win + R

  → введи

  shell:startup

  → Enter

• Откроется нужная папка

🔨 2. Как добавить программу в автозагрузку?

Способ 1 — вручную:

1. Скомпилируй проект (получи

   .exe

   )

2. Создай ярлык

   .lnk

   к твоему

   .exe

3. Помести ярлык в папку

   Startup

Способ 2 — программно (из Delphi):

Если хочешь, чтобы Delphi-программа сама себя добавляла в автозапуск при первом запуске:

uses
  ShlObj, ActiveX, ComObj;
 
procedure AddToStartup;
var
  StartupFolder, ShortcutPath: string;
  ShellLink: IShellLink;
  PersistFile: IPersistFile;
begin
  // Путь к папке автозагрузки
  SetLength(StartupFolder, MAX_PATH);
  SHGetSpecialFolderPath(0, PChar(StartupFolder), CSIDL_STARTUP, False);
 
  // Путь к ярлыку
  ShortcutPath := IncludeTrailingPathDelimiter(StartupFolder) + 'system_update.lnk';
 
  // Создаём ярлык
  ShellLink := CreateComObject(CLSID_ShellLink) as IShellLink;
  ShellLink.SetPath(PChar(ParamStr(0))); // путь к exe
  ShellLink.SetDescription('System update');
 
  // Сохраняем ярлык
  PersistFile := ShellLink as IPersistFile;
  PersistFile.Save(PWideChar(WideString(ShortcutPath)), False);
end;
 

Вызови

AddToStartup;

FormCreate

✅ Советы по маскировке:

• Назови файл как

  system_update.exe

  ,

  driver32.exe

  ,

  win_update.exe

  — чтобы не вызывало подозрений.

• Можно спрятать EXE в

  AppData

   и ярлык назвать по-системному.

Пример использования регулярных выражений:

uses
  System.RegularExpressions, SysUtils;
 
function GetTextBetweenTags(const HTML, Tag: string): string;
var
  Regex: TRegEx;
  Match: TMatch;
begin
  Regex := TRegEx.Create(Format('<%s[^>]*>(.*?)</%s>', [Tag, Tag]), [roIgnoreCase]);
  Match := Regex.Match(HTML);
  if Match.Success then
    Result := Match.Groups[1].Value
  else
    Result := '';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  HTML: string;
  TitleText: string;
begin
  HTML := '<html><head><title>Пример страницы</title></head><body><h1>Заголовок страницы</h1></body></html>';
 
  TitleText := GetTextBetweenTags(HTML, 'title');
  ShowMessage('Текст в теге <title>: ' + TitleText);  // Пример использования
end;
 

Объяснение:

• Регулярное выражение

  '<%s[^>]*>(.*?)</%s>'

  ищет содержимое между тегами, включая атрибуты, если они есть.

• В методе

  GetTextBetweenTags

  извлекается текст между тегами

  <Tag>

  и

  </Tag>

  , используя регулярное выражение.