Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

height [D6, Win95/98]

Ms.Dunkul © (2004-09-17 13:36:00)
procedure TForm1.FormCreate(Sender: TObject);
var
Fil:File of integer; //1.cfg
Ima fila:string[10];
begin
ima fila:='1.cfg';
AssignFile(fil,ima fila);
Reset(fil);
Read(fil,FormH);
with Form1 do
begin
Form1.height:=FormH;
end;

end;
В этом FormCreat-е размеры формы (height) счит. с файла (1.cfg,пусть в файле height=4) но форма вместо этого масштабируется в гигантский размер(попробуйте сами).
Ну и что?

Ms.Dunkul (2004-09-21 12:45:00) [1]
Ладно,я сама разобралась!
procedure TForm1.FormCreate(Sender: TObject);
var
Fil:textfile; //1.txt
Ima fila:string[10];
begin
ima fila:='1.cfg';
AssignFile(fil,ima fila);
Reset(fil);
ReadLn(fil,FormH);
with Form1 do
begin
Form1.height:=StrToInt(FormH);
end;

TUser (2004-09-17 15:02:00) [2]

> Кто ж через блокнот пишет двоичные файлы :)

Главное, как тебе удалось через блокнот записать дв. файл. По сабжу - у тебя в файле написано, допустим 125, но это не число, а строка. А число (в понимании любой программы) - это нечто совершенно нечитаемое. Представление о том, как выглядит число в компьютерном представлении можно получить просмотрев содержание любого бинарника, напр. exe файла.
Если ты считываешь '125' - то юзай StrToInt/Val. Или записывай бинарник.

Sheriff (2004-09-17 14:59:00) [3]
через ini все же удобнее:
var FIni: TIniFile;
begin
FIni:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'data.ini');
try
// FORM SIZE =====
if StoreWindowSizeBox.Checked then begin
fh:=FIni.ReadInteger('FormSettings','Height',500);
if (fh>=350)and(fh<Screen.Height) then AForm1.Height:=fh;
fw:=FIni.ReadInteger('FormSettings','Width',700);
if (fw>=550)and(fw<Screen.Width) then AForm1.Width:=fw;
end;
finally FIni.Free; end;

КаПиБаРа (2004-09-17 14:55:00) [4]
Ms.Dunkul (17.09.04 14:39) [3]
Кто ж через блокнот пишет двоичные файлы :)
============================================== Труд сделал из обезьяны - уставшую обезьяну... ==============================================

Anatoly Podgoretsky (2004-09-17 14:53:00) [5]
А нафига здесь типизированый файл, когда текстовый самое то.

Ms.Dunkul (2004-09-17 14:39:00) [6]
TUser ©
Через блокнот :)

КаПиБаРа (2004-09-17 13:42:00) [7]
Reset(fil);
Read(fil,FormH);
with Form1 do
begin
ShowMessage(IntToStr(FormH));
Form1.height:=FormH;
end;
============================================ Полярный медведь - это прямоугольный медведь после преобразования координат. ============================================

TUser (2004-09-17 13:41:00) [8]
А как значения были записаны в файл?

PS. Может лучше ini?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »