Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Как добиться одинакового размера шрифта при выводе на Image.Canvas и Printer.Canvas http://www.cyberforum.ru/delphi-beginners/thread360604.html
Здравствуйте! Подскажите, пожалуйста, как добиться одинакового размера шрифта при выводе на Image.Canvas и Printer.Canvas
Какой код нужно ввести чтобы мяч менял направление при столкновении с границей или с прямоугольником? Delphi
Расположить на форме таймер, фигуру «круг» и фигуру «прямо-угольник». Разработать приложение, которое работает следующим образом: • прямоугольник выполняет роль лапты, он перемещается влево и вправо...
Скрин экрана в формате jpg Delphi
Вот этот код делает скрин в формате bmp, это удобно... фоты весят от 6мб. var DC: HDC; bmp: TBitmap; .... bmp:=TBitmap.Create; bmp.Height:=Screen.Height; bmp.Width:=Screen.Width;...
Delphi Подсчёт двухбуквенных сочетаний Дана задача:в заданном тексте определить сколько раз встречается каждое различное двухбуквенное сочетание. может кто нить помочь с решением хотя б идейку подкинуть а то я что-то ничего придумать не... http://www.cyberforum.ru/delphi-beginners/thread360566.html
Delphi BDE http://www.cyberforum.ru/delphi-beginners/thread360559.html
Добрый вечер, немогли бы мне помочь в создании программы в дельфи, суть в задачи в следующем: Разработать любое программное обеспечения (программу) с использованием BDE
MessageBox Delphi
Добрый день. Нужно сделать окошко, которое будет справшивать: "Шаг 1,2,3. {расчеты}. Продолжить?" Пробую так: if messagebox(application.handle, 'Крок...
Разработка программного обеспечения с использованием BDE Delphi
Разработка программного обеспечения с использованием BDE любую программу.
Delphi Ошибка: left side cannot be assigned to Вот код кнопки: procedure TForm1.BitBtn1Click(Sender: TObject); begin Memo1.Text:=IntToStr(w); Memo2.Text:=IntToStr(e); Memo3.Text:=IntToStr(r); Memo4.Text:=IntToStr(t);... http://www.cyberforum.ru/delphi-beginners/thread360534.html
Delphi Как работать с Tabcontrol http://www.cyberforum.ru/delphi-beginners/thread360476.html
Научите как работать с Tabcontrol как в них создают закладки, и что как вписывать юзал поиск не что не мог найти не кого урока с Tabcontrol Добавлено через 17 часов 55 минут Что ни каких не кто...
Delphi Обработка данных текущего времени Здравствуйте. Подскажите пожалуйста, как обработать данные текущего времени, то есть например сложить часы,минуты и секунды, и вывести этот результат в label2? Тут в таймере выводим время:... http://www.cyberforum.ru/delphi-beginners/thread360464.html
Arcor
5122 / 1981 / 427
Регистрация: 20.11.2009
Сообщений: 6,593
Записей в блоге: 1
04.10.2011, 21:48 0

Проверка файлов на существование и размер

04.10.2011, 21:48. Просмотров 1181. Ответов 2
Метки (Все метки)

Ответ

вот проверяем размер файла, пример написан на основе функции самодельной, использование функции дано тоже, чтобы потом вопросов было меньше
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function GetFileSize(FileName: String): Int64;
var FS: TFileStream;
begin
  Result := 0;
  FS := TFileStream.Create(FileName, fmOpenRead);
  Result := FS.Size;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var S: String;
begin
  if OpenDialog1.Execute then
    begin
      S := 'Размер файла "'+OpenDialog1.FileName+'" = '+ IntToStr(GetFileSize(OpenDialog1.FileName))+' байт';
      MessageDlg(S, mtInformation, [mbOK], 0)
    end;
end;


Вернуться к обсуждению:
Проверка файлов на существование и размер

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.10.2011, 21:48

Реестр: проверка на существование раздела и ключа
Здравствуйте скажите как можно создать раздел в реестре и в этом разделе создать ключ и как ...

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

Проверка на существование неизвестного файла, зная лишь его расширение
Задача проста нужно отследить появление файла в папке (путь к ней известен) но вот загвоздка во...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru