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

Вниз

Zagruzka procedure pri starte programmi ili zagruzke formi!   Найти похожие ветки 

← →
AndreyL   (2004-04-24 16:15) [0]

Privet!
Podskazhite, pozhalujsta, kak mozhno sdelat tak, chtobi pri zapuske progi ili zagruzke formi zapuskalas opredelennaja procedura. Ja proboval s OnCreate event"om dla dannoj formi, no ne rabotajet. Procedura schgitivajet dannije iz faila i menjat shirinu kolon v DBGrid"e!
Spasibo za lubuju pomosh!
Andrey!

---

← →
AndreyL   (2004-04-24 16:15) [0]

Privet!
Podskazhite, pozhalujsta, kak mozhno sdelat tak, chtobi pri zapuske progi ili zagruzke formi zapuskalas opredelennaja procedura. Ja proboval s OnCreate event"om dla dannoj formi, no ne rabotajet. Procedura schgitivajet dannije iz faila i menjat shirinu kolon v DBGrid"e!
Spasibo za lubuju pomosh!
Andrey!

---

← →
Kto ©   (2004-04-24 16:19) [1]

Что значит не работает? Точнее можно? Кусок кода н-р.

---

← →
Kto ©   (2004-04-24 16:19) [1]

Что значит не работает? Точнее можно? Кусок кода н-р.

---

← →
AndreyL   (2004-04-24 16:31) [2]

Nu tochnee eto vigladit vot tak:
eto zapusk proceduri
procedure TMainForm.FormCreate(Sender: TObject);
begin

LoadColumnSettings("Config\Soft.txt", gridMain);
CurrentCategory:="Config\Soft.txt";
end;

a vot i sama procedura

procedure LoadColumnSettings(PathToFile: string; var gridMain: TDBGrid);
var
SettingsFile: text;
ColumnNumber: integer;
FileLine: string;
begin

       assign(SettingsFile, PathToFile);
       reset(SettingsFile);
       for ColumnNumber:=0 to (gridMain.Columns.Count-1) do
               begin
               readln(SettingsFile, FileLine);
               gridMain.Columns.Items[ColumnNumber].Width:=strtoint(FileLine);
               end;
       close(SettingsFile);

end;
No pri zapuske programmi procedura ne zapuskajetsja, a pri sobtiji OnChange box"a nirmalno zapuskajetsja.
Andrey!

---

← →
AndreyL   (2004-04-24 16:31) [2]

Nu tochnee eto vigladit vot tak:
eto zapusk proceduri
procedure TMainForm.FormCreate(Sender: TObject);
begin

LoadColumnSettings("Config\Soft.txt", gridMain);
CurrentCategory:="Config\Soft.txt";
end;

a vot i sama procedura

procedure LoadColumnSettings(PathToFile: string; var gridMain: TDBGrid);
var
SettingsFile: text;
ColumnNumber: integer;
FileLine: string;
begin

       assign(SettingsFile, PathToFile);
       reset(SettingsFile);
       for ColumnNumber:=0 to (gridMain.Columns.Count-1) do
               begin
               readln(SettingsFile, FileLine);
               gridMain.Columns.Items[ColumnNumber].Width:=strtoint(FileLine);
               end;
       close(SettingsFile);

end;
No pri zapuske programmi procedura ne zapuskajetsja, a pri sobtiji OnChange box"a nirmalno zapuskajetsja.
Andrey!

---

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

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

Наверх

Память: 0.45 MB
Время: 0.031 c