Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 10.08.2009
Сообщений: 6
1

Постоянно вылетает ошибка при работе с INI файлами в Delphi 7

21.12.2009, 20:16. Показов 1321. Ответов 1
Метки нет (Все метки)

Не могу работать с INI файлами , постоянно вылетают ошибки , никаких синтаксических ошибок в коде нету. Вот простой пример программы , которая записывает ширину и высоту картинки из Image в ini файл.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IniFiles, ExtCtrls ;
 
type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
Ini: TiniFile;
begin
ini.Create('ini.ini');
Ini.WriteInteger('Parameters', 'Width',Image1.Picture.Bitmap.Width);
Ini.WriteInteger('Parameters', 'Height',Image1.Picture.Bitmap.Height);
Ini.Free;
end;
 
end.
Но при нажатии на Button2 вылетают такие окна с ошибкой:
Подскажите пожалуйста , в чем может быть проблема.
Миниатюры
Постоянно вылетает ошибка при работе с INI файлами в Delphi 7   Постоянно вылетает ошибка при работе с INI файлами в Delphi 7   Постоянно вылетает ошибка при работе с INI файлами в Delphi 7  

__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2009, 20:16
Ответы с готовыми решениями:

Ошибка при работе с .ini файлом
Прочитал, что хоть использование .ini файлов и устарело, но всё же кое-где практичнее системного...

Ошибка: access violation при работе с ini файлом
есть 2 формы. на одной форме создаю ini-файл, сохраняю туда логин пароль, а на другой форме для...

Проблема в Delphi XE при работе с XLS файлами
Доброго времени суток! Столкнулся с непредвиденным поведением OleObject MS Excel в Delphi XE7....

Вылетает ошибка при работе с функцией Copy
Здравствуйте, написала код, в котором нужно разбить строку на кусочки и эти кусочки занести в...

1
Эксперт С++
3058 / 1400 / 421
Регистрация: 19.01.2009
Сообщений: 3,769
21.12.2009, 20:36 2
Должно быть
Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button2Click(Sender: TObject);
var
Ini: TiniFile;
begin
ini := TiniFile.Create('ini.ini');  /// !!!!
Ini.WriteInteger('Parameters', 'Width',Image1.Picture.Bitmap.Width);
Ini.WriteInteger('Parameters', 'Height',Image1.Picture.Bitmap.Height);
Ini.Free;
end;
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2009, 20:36

При работе с Json вылетает ошибка null reference
Есть условие if (WallParser.response.items.attachments.Count == 1) оно проверяет количество...

При запуске ккомпьютера и подключения к интернет через vpn постоянно вылетает ошибка 711
Здравствуйте! У меня стоит windows 7. И возникает такая проблема: при запуске ккомпьютера и потом...

Ошибка при работе с файлами
Необходимо, создать текстовый файл со случайным именем в диапазоне 8 символов, латиница. Вот...

Ошибка при работе с файлами
Всем привет! Кто подскажет, почему не работает этот код: FILE *file; int i = 0; if((file =...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru