Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

3rd
Окт

Как записать данные в файл?

Делаю лабораторную, где нужно в созданный файл внести данные, а именно количество кластеров на диске (читать всё…)

Добавлено в assembler, Пост-обзор. Дата Октябрь 3rd, 2011

23rd
Сен

Скачать файл типизированный файл с сервера

сть такой вопрос, вот допустим у меня на сервере есть типизированный файл, как бы мне его скачать прямо в память, и потом заполнить переменную — запись. Я умею скачивать сами файлы, но вот как сделать без сохранения на диск не знаю. Подскажите кто может, плз. Надо именно не создовая файла (читать всё…)

Добавлено в Delphi, Пост-обзор. Дата Сентябрь 23rd, 2011

22nd
Авг

Печать текстового файла

Программа выдает текст. файл с данными и его надо распечатать но без вывода диалога печати, а просто при нажатии кнопки — печатать этот файл. (читать всё…)

Добавлено в Delphi, Пост-обзор. Дата Август 22nd, 2011

15th
Авг

Поиск файла по указанному пути

Доброго времени суток! Мне нужна помощь… это касается поиска файла.
Допустим иметься некий файл file.txt по адресу c:\123\навание_папки_которое_я_не_з наю\file.txt
Так вот как мне этот файл найти если я знаю только первоначальный путь к нему?! (читать всё…)

Добавлено в Delphi, Пост-обзор. Дата Август 15th, 2011

29th
Май

Как правильно организовать запись в файл начиная с новой строки?

При обычном вводе в файл вместо столбца символов получилось нечто «^A &^E » (читать всё…)

Добавлено в Пост-обзор. Дата Май 29th, 2011

20th
Май

можно ли как то открыть файл в одной программе два раза сразу?

(получив разные хендлы, с разными позициями соответственно)
иль хотелось бы еще проще, по одному хендлу сделать оное, возможно ли такое иль писать свой класс для работы таким образом?

цель, дать нескольким потокам возможность работать с одним файлов одновременно(каждому потоку нужна своя позиция в файле) (читать всё…)

Добавлено в Топик-обзор. Дата Май 20th, 2011

19th
Май

Сохранение и чтение файла в StringGrid

Вообщем мне нужно заполнить 6 ячеек, сохранить, а после при загрузке чтобы всё читалось и редактировалось. (читать всё…)

Добавлено в Пост-обзор. Дата Май 19th, 2011

26th
Апр

Определение размера открытого файла

Такая вот нужда Определить размер открытого файла, например: определение размера работающего скомпилированного файла проекта.

При использовании функции гетфайлсайз или просто файлсайз вылетают ошибки и ответа нет.
Прошу помощи! (читать всё…)

Добавлено в Топик-обзор. Дата Апрель 26th, 2011

14th
Фев

Получить размер файла

dolphin705:

var
  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 Гб (а это в настоящее время вполне даже актуально, хотя, автору топика это вряд ли… ).

вот код, избавленный от этого недостатка:

function SizeFile(s: string): int64;
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;

или, можно так:

function GetFileSize2(namefile: string): Int64;
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 -> строку:

function Int64ToStr(i64: int64): string;
begin
  str(i64, result)
end;

Тема на форуме

Добавлено в Топик-обзор. Дата Февраль 14th, 2011

27th
Дек

Шестой билд 3-D шутера от anyx

Выкладываю самый нестабильный билд (в том смысле, что в будущем многое будет не так). На иерархию классов интерфейса и его реализацию даже не смотрите (!). (читать всё…)

Добавлено в Пост-обзор. Дата Декабрь 27th, 2010