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

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

Не подключается объект Screen. [D7, XP]

Сергей ©   (2008-05-20 14:21:00) 

Удалено модератором
Примечание: СПАМ

---

Сергей   (2008-05-20 15:43:00) [1]


procedure TForm1.Button3Click(Sender: TObject);
var i, rc:integer;
Save_Cursor:TCursor;
begin

ADOQuery1.Active :=  false;
ADOQuery1.SQL.Add('ALTER TABLE ' +LBoxShQv.Items[LBoxShQv.ItemIndex]+ ' ADD IDPR CHAR(7)');
ADOQuery1.ExecSQL;

Save_Cursor := Screen.Cursor;
Screen.Cursor := crHourGlass;  

adotable1.Active := TRUE;
adotable1.Last;
rc := adotable1.RecordCount;
form1.ProgressBar1.Position := 0;
form1.ProgressBar1.Max := rc;
adotable1.First;
While not adotable1.Eof do
begin
form1.ProgressBar1.StepBy(1);
adotable1.Edit;
adotable1.fieldbyname('IDPR').asString:=ComboBox2.Text+adotable1.Fields[0].AsString;
adotable1.UpdateRecord;
adotable1.Next;
end;

adotable1.Active := false;
ADOQuery1.Close;
ADOConnection1.Connected := false;
ADOConnection2.Connected := false;
ADOConnection3.Connected := false;

Screen.Cursor := Save_Cursor;

for i:=0 to FileListBox1.Count-1 do
begin
if AnsiRightStr(FileListBox1.Items [i],4) = '*.mdb' then
FileListBox1.Selected [i] := true;
end;

for i:=0 to FileListBox1.Count-1 do
begin
if AnsiRightStr(FileListBox1.Items [i],4) = '.mdb' then
FileListBox1.Selected [i] := true;
end;

Memo1.Lines.Text := ComboBox2.Text;
Memo1.Lines.Text := IntToStr(StrToInt(Memo1.Lines.Text)+ 10);
Memo1.Lines.SaveToFile (P + 'Prefic.txt');
flagPr := False;
FileListBox1DblClick(Sender);


---

Anatoly Podgoretsky   (2008-05-20 14:57:00) [2]

> Сергей  (20.05.2008 14:47:02)  [2]

А нам зачем гадать, что у тебя там.
Вопрос по приведеному коду - зачем два var?

---

Palladin   (2008-05-20 14:48:00) [3]

так может ты будешь здесь приводить, то, что у тебя в программе?

---

Сергей   (2008-05-20 14:47:00) [4]

в программе один.

---

Palladin   (2008-05-20 14:23:00) [5]

зачем тебе два var ?

---

Наверх