Форум: "Начинающим";
Текущий архив: 2008.06.15;
Скачать: [xml.tar.bz2];

Вниз

Не подключается объект Screen.   Найти похожие ветки 

← →
Сергей   (2008-05-20 14:21) [0]

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

---

← →
Palladin ©   (2008-05-20 14:23) [1]

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

---

← →
Сергей   (2008-05-20 14:47) [2]

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

---

← →
Palladin ©   (2008-05-20 14:48) [3]

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

---

← →
Anatoly Podgoretsky ©   (2008-05-20 14:57) [4]

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

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

---

← →
Сергей   (2008-05-20 15:43) [5]


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);


---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.06.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.008 c