Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];

Вниз

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]
Кто ж через блокнот пишет двоичные файлы :)

==============================================
Труд сделал из обезьяны - уставшую обезьяну...
==============================================


 
Sheriff ©   (2004-09-17 14:59) [6]

через 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;


 
TUser ©   (2004-09-17 15:02) [7]


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

Главное, как тебе удалось через блокнот записать дв. файл. По сабжу - у тебя в файле написано, допустим 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;



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

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

Наверх




Память: 0.46 MB
Время: 0.028 c
14-1095248505
kelegor
2004-09-15 15:41
2004.10.10
Легенды форума


1-1096258220
r9000
2004-09-27 08:10
2004.10.10
Работа с dll


14-1095859186
kaZaNoVa
2004-09-22 17:19
2004.10.10
Скорость доступа к диску, или как ускорить HARD


14-1094544398
9k33
2004-09-07 12:06
2004.10.10
Альтернатива для RENT A CODER


14-1095669349
BiN
2004-09-20 12:35
2004.10.10
Вечная жизнь





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский