{"id":20697223,"url":"https://github.com/tsnsoft/delphiinputoutpututf8","last_synced_at":"2026-06-05T10:31:32.418Z","repository":{"id":119310575,"uuid":"518529489","full_name":"tsnsoft/DelphiInputOutputUTF8","owner":"tsnsoft","description":"Ввод и вывод строк Unicode в Delphi 10.4 для Windows 11","archived":false,"fork":false,"pushed_at":"2022-07-27T16:24:34.000Z","size":452,"stargazers_count":0,"open_issues_count":0,"forks_count":0,"subscribers_count":1,"default_branch":"main","last_synced_at":"2025-01-17T18:32:20.971Z","etag":null,"topics":["console","delphi","input","output","readconsole","string","unicode","utf-8","windows","writeconsole"],"latest_commit_sha":null,"homepage":"","language":"Pascal","has_issues":true,"has_wiki":null,"has_pages":null,"mirror_url":null,"source_name":null,"license":"mit","status":null,"scm":"git","pull_requests_enabled":true,"icon_url":"https://github.com/tsnsoft.png","metadata":{"files":{"readme":"README.md","changelog":null,"contributing":null,"funding":null,"license":"LICENSE.md","code_of_conduct":null,"threat_model":null,"audit":null,"citation":null,"codeowners":null,"security":null,"support":null,"governance":null,"roadmap":null,"authors":null,"dei":null,"publiccode":null,"codemeta":null}},"created_at":"2022-07-27T16:15:36.000Z","updated_at":"2022-07-27T16:25:19.000Z","dependencies_parsed_at":null,"dependency_job_id":"7920165b-afdc-48c3-a8b1-a8528517fd6e","html_url":"https://github.com/tsnsoft/DelphiInputOutputUTF8","commit_stats":null,"previous_names":[],"tags_count":0,"template":false,"template_full_name":null,"repository_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/tsnsoft%2FDelphiInputOutputUTF8","tags_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/tsnsoft%2FDelphiInputOutputUTF8/tags","releases_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/tsnsoft%2FDelphiInputOutputUTF8/releases","manifests_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/tsnsoft%2FDelphiInputOutputUTF8/manifests","owner_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners/tsnsoft","download_url":"https://codeload.github.com/tsnsoft/DelphiInputOutputUTF8/tar.gz/refs/heads/main","host":{"name":"GitHub","url":"https://github.com","kind":"github","repositories_count":242961747,"owners_count":20213315,"icon_url":"https://github.com/github.png","version":null,"created_at":"2022-05-30T11:31:42.601Z","updated_at":"2022-07-04T15:15:14.044Z","host_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub","repositories_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories","repository_names_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repository_names","owners_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners"}},"keywords":["console","delphi","input","output","readconsole","string","unicode","utf-8","windows","writeconsole"],"created_at":"2024-11-17T00:17:12.932Z","updated_at":"2025-03-11T02:49:47.670Z","avatar_url":"https://github.com/tsnsoft.png","language":"Pascal","funding_links":[],"categories":[],"sub_categories":[],"readme":"# DelphiInputOutputUTF8\n**Ввод и вывод строк Unicode в Delphi 10.4 для Windows 11**\n\n![Screenshot](screenshot.png)\n\n\n```\nprogram DelphiInputOutputUTF8;\n\n{$APPTYPE CONSOLE}\n\nuses\n  SysUtils, Windows;\n\nVAR\n  NumCharsWritten: DWORD;\n  NumCharsRead: DWORD;\n  Text: String; // Строка UTF-8\n  i: integer;\n\nbegin\n  try\n    SetLength(Text, 255); // Устанавливаем максимальное количество символов для переменной\n    // Вводим строку в UTF-8 через вызов функции WinAPI ReadConsoleW\n    ReadConsole(GetStdHandle(STD_INPUT_HANDLE), PChar(Text), Length(Text), NumCharsRead, nil);\n    SetLength(Text, NumCharsRead - 2); // Убираем с ввода символы новой строки (нажатие на Enter)\n    // Распечатаем символы на экран\n    for i := 1 to Length(Text) do begin\n      Writeln('[', i, '] char: ', Text[i], ', code: ', ord(Text[i]));\n    end;\n    // Меняем текст UTF-8 (добавляем в конец)\n    Text := Text + ' -\u003e Замечательно! Das ist großartig! Wonderful! 精彩的！ رائع!';\n    // Выводим строку в UTF-8 через вызов функции WinAPI WriteConsoleW\n    WriteConsole(GetStdHandle(STD_OUTPUT_HANDLE), PChar(Text), Length(Text), NumCharsWritten, nil);\n\n\n  except\n    on E: Exception do\n      Writeln(E.ClassName, ': ', E.Message);\n  end;\n  ReadLn; // Ожидание нажатия на Enter\n\nend.\n```\n","project_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Ftsnsoft%2Fdelphiinputoutpututf8","html_url":"https://awesome.ecosyste.ms/projects/github.com%2Ftsnsoft%2Fdelphiinputoutpututf8","lists_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Ftsnsoft%2Fdelphiinputoutpututf8/lists"}