Текущий архив: 2004.04.11;
Скачать: CL | DM;
Вниз
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 proceduriprocedure TMainForm.FormCreate(Sender: TObject);
begin
LoadColumnSettings("Config\Soft.txt", gridMain);
CurrentCategory:="Config\Soft.txt";
end;
a vot i sama proceduraprocedure 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 proceduriprocedure TMainForm.FormCreate(Sender: TObject);
begin
LoadColumnSettings("Config\Soft.txt", gridMain);
CurrentCategory:="Config\Soft.txt";
end;
a vot i sama proceduraprocedure 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;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.034 c
