Форум: "Основная";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];
ВнизProblemi s OpenDialog.Execute i rewrite failov Найти похожие ветки
← →
AndreyL (2004-05-27 20:33) [0]Privet!
U menja vot takaja problema:
posle OpenDialog.Execute kogda zapuskajetsja funkcija SaveColumnSettings pojavlajetsja soobshenije "... EINOutError.. "Invalid Filename" .." i vse progu nachinajet stoporit.
Pozhalujsta, podskazhite esli popadalos pohozheje ili znajete prichinu. Vot eti funkcii
eta sohranajet ustanovki shiri kolonokprocedure SaveColumnSettings(PathToFile: string; gridMain: TDBGrid);
var
SettingsFile: text;
ColumnNumber: integer;
begin
assign(SettingsFile, PathToFile);
rewrite(SettingsFile);
for ColumnNumber:=0 to (gridMain.Columns.Count-1) do
begin
writeln(SettingsFile, inttostr(gridMain.Columns.Items[ColumnNumber].Width));
end;
close(SettingsFile);
end;
, a iz-za etoj problemi(tochnee iz-za zapuska OpenDialog)
procedure BrowseFilePath(var memText: TMemo; var dlgBrowse: TOpenDialog);
begin
if dlgBrowse.Execute then
memText.Lines.Text:=dlgBrowse.Files.Text;
end;
Spasibo!
Andrey!
← →
Palladin © (2004-05-27 21:29) [1]Поотслеживать значения на разном времени исполнения не судьба?
Потрассировать?
Почему в BrowseFilePath все параметры по ссылке, а в SaveColumnsSettings Const не удосужился поставить перед PathToFile:String?
Все это здорово пахнет левым кодом C&P.
← →
AndreyL (2004-05-27 21:52) [2]Po sebe drugih ne sudjat!
A po ssilke potomu chto tak nado, a const ne pomogajet!
No spasibo za sovet!
Andrey!
← →
Palladin © (2004-05-27 22:04) [3]с чего бы мне по себе тебя судить?
Интересно Const не помогает чему?
← →
AndreyL (2004-05-27 23:00) [4]Oshibka ostajetsja, sobshenije vse ravno pojavlajetsja!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.043 c