| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Что за ошибка?

Washington ©   (2007-09-29 08:15:00) 

procedure TForm5.FormCreate(Sender: TObject); {при создании формы}
var
WinDir:PChar;
begin
getMem(WinDir,500);  
GetWindowsDirectory(WinDir,500);  strCat(WinDir,'\DataSource.bdp'); Label3.Caption:=strPas(WinDir);
freemem(WinDir);
ADOConnection1.Properties['Data Source'].Value:=Label3.Caption;
end;

Readonly property value was not set. В чём ошибка? Вроде всё работало, теперь вдруг нет, хотя ничего не делал :(

---

Washington   (2007-09-29 10:22:00) [1]

> Kolan ©   (29.09.07 10:04) [7]
В смысле?

---

Kolan   (2007-09-29 10:04:00) [2]

> Теперь тут, блин. Acess violation тытыты, ещё что-то.

Апо собжу как всегда 17 строка…

---

Washington   (2007-09-29 09:56:00) [3]

Да не знаю. Что взбрело, то и калякнул. Теперь уже понимаю что тупо, просто переделывать не охота.

---

Kolan   (2007-09-29 09:53:00) [4]

> Imja_of_Company_for_view

ППЦ, ну почему? почему ты написал imja по русски а все остальное по ангийски? И еще и в сишном стиле…

---

Washington   (2007-09-29 09:51:00) [5]

with ADOTable1 do
begin
Open;
Insert;
FieldValues['Company']:=Imja_of_Company_for_view;
Post;
end;

Извиняюсь

---

Washington   (2007-09-29 09:50:00) [6]

with ADOTable1 do
begin
 Open;
 Insert;
 FieldValues['Company']:=Imja_of_Company_for_view;
 Post;
end;

Теперь тут, блин. Acess violation тытыты, ещё что-то.

---

Leonid Troyanovsky   (2007-09-29 08:46:00) [7]

> Washington ©   (29.09.07 08:15)  

> WinDir:PChar;

WinDir : array [0..MAX_PATH] of Char;

--
Regards, LVT.

---

Washington   (2007-09-29 08:17:00) [8]

Блиин, что ж я так туплю. Походу не выспался. Сделал connected=false.

---

Наверх