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 kolonok

procedure 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!

Problemi s OpenDialog.Execute i rewrite failov Найти похожие ветки