Последние записи
- Перенести программу из Delphi в Lazarus
- Определить текущую ОС
- Автоматическая смена языка (раскладки клавиатуры)
- Сравнение языков на массивах. Часть 2
- wprintf как напечатать кириллицу
- Взаимодействие через командную строку
- Сравнение языков на массивах. Часть 1
- Сравнение языков по скорости
- Чтение огромных xml-файлов
- Как в Python+Selenium webdriver открыть новую вкладку в уже открытом браузере?
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
3rd
Окт
Как записать данные в файл?
Делаю лабораторную, где нужно в созданный файл внести данные, а именно количество кластеров на диске (читать всё…)
23rd
Сен
Скачать файл типизированный файл с сервера
сть такой вопрос, вот допустим у меня на сервере есть типизированный файл, как бы мне его скачать прямо в память, и потом заполнить переменную — запись. Я умею скачивать сами файлы, но вот как сделать без сохранения на диск не знаю. Подскажите кто может, плз. Надо именно не создовая файла (читать всё…)
22nd
Авг
Печать текстового файла
Программа выдает текст. файл с данными и его надо распечатать но без вывода диалога печати, а просто при нажатии кнопки — печатать этот файл. (читать всё…)
15th
Авг
Поиск файла по указанному пути
Доброго времени суток! Мне нужна помощь… это касается поиска файла.
Допустим иметься некий файл file.txt по адресу c:\123\навание_папки_которое_я_не_з наю\file.txt
Так вот как мне этот файл найти если я знаю только первоначальный путь к нему?! (читать всё…)
29th
Май
Как правильно организовать запись в файл начиная с новой строки?
При обычном вводе в файл вместо столбца символов получилось нечто «^A &^E » (читать всё…)
20th
Май
можно ли как то открыть файл в одной программе два раза сразу?
(получив разные хендлы, с разными позициями соответственно)
иль хотелось бы еще проще, по одному хендлу сделать оное, возможно ли такое иль писать свой класс для работы таким образом?
цель, дать нескольким потокам возможность работать с одним файлов одновременно(каждому потоку нужна своя позиция в файле) (читать всё…)
19th
Май
Сохранение и чтение файла в StringGrid
Вообщем мне нужно заполнить 6 ячеек, сохранить, а после при загрузке чтобы всё читалось и редактировалось. (читать всё…)
26th
Апр
Определение размера открытого файла
Такая вот нужда Определить размер открытого файла, например: определение размера работающего скомпилированного файла проекта.
При использовании функции гетфайлсайз или просто файлсайз вылетают ошибки и ответа нет.
Прошу помощи! (читать всё…)
14th
Фев
Получить размер файла
dolphin705:
x: integer;
f: textfile;
f1 : file;
begin
assignfile(f1,‘file.txt’);
Reset(f1,1);
x:=filesize(f1);
closefile(f1);
assignfile(f,‘file.txt’);
append(f);
WriteLn(f,inttostr(x));
closefile(f);
Serge_Bliznykov:
Кстати, данный код не сможет прочитать размер файла больше 2 Гб (а это в настоящее время вполне даже актуально, хотя, автору топика это вряд ли… ).
вот код, избавленный от этого недостатка:
var
SearchRec : _WIN32_FIND_DATAA;
begin
if FileExists(s) then begin
FindFirstFile(pchar(s), SearchRec);
result := SearchRec.nFileSizeHigh;
result := result shl 32;
result := result + SearchRec.nFileSizeLow
end
else
result := -1;
end;
или, можно так:
var InfoFile: TSearchRec;
AttrFile: Integer;
Error: Integer;
begin
AttrFile := $0000003F; // Any file
Error := FindFirst(namefile, AttrFile, InfoFile);
if Error <> 0 then result := -1
else begin
Result := InfoFile.FindData.nFileSizeHigh;
Result := Result shl 32;
Result := Result or InfoFile.FindData.nFileSizeLow
end;
FindClose(InfoFile)
end;
ну и для преобразования int64 -> строку:
begin
str(i64, result)
end;
27th
Дек
Шестой билд 3-D шутера от anyx
Выкладываю самый нестабильный билд (в том смысле, что в будущем многое будет не так). На иерархию классов интерфейса и его реализацию даже не смотрите (!). (читать всё…)
Облако меток
css реестр ассемблер timer SaveToFile ShellExecute программы массив советы word MySQL SQL ListView pos random компоненты дата LoadFromFile form база данных сеть html php RichEdit indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo графика StringGrid canvas поиск файл Pascal форма Файлы интернет excel Microsoft Office Excel winapi журнал ПРОграммист DelphiКупить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)