Форум: "Основная";
Текущий архив: 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 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!

---

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

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

Наверх

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