height

← →
Ms.Dunkul (2004-09-17 13:36) [0]

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) но форма вместо этого масштабируется в гигантский размер(попробуйте сами).
Ну и что?

← →
TUser © (2004-09-17 13:41) [1]

А как значения были записаны в файл?

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

← →
КаПиБаРа © (2004-09-17 13:42) [2]

Reset(fil);
Read(fil,FormH);
with Form1 do
begin
ShowMessage(IntToStr(FormH));
Form1.height:=FormH;
end;
============================================ Полярный медведь - это прямоугольный медведь после преобразования координат. ============================================

← →
Ms.Dunkul (2004-09-17 14:39) [3]

TUser ©
Через блокнот :)

← →
Anatoly Podgoretsky © (2004-09-17 14:53) [4]

А нафига здесь типизированый файл, когда текстовый самое то.

← →
КаПиБаРа © (2004-09-17 14:55) [5]

Ms.Dunkul (17.09.04 14:39) [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;

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

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

← →
Ms.Dunkul (2004-09-21 12:45) [8]

Ладно,я сама разобралась!
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;

height Найти похожие ветки