Модератор: Модераторы
Лекс Айрин » 24.10.2015 14:53:28
pupsik » 24.10.2015 15:02:52
vitaly_l » 24.10.2015 15:07:12
Лекс Айрин писал(а):то на то, имхо, и выйдет.
pupsik писал(а):Учитываю что используя фпс 3 + бинарник меньше на 100 кб, нежели в 2.6
pupsik » 24.10.2015 15:26:01
Вы о чем?там должно быть минимум 3 мегабайта.
Лекс Айрин » 24.10.2015 15:33:56
vitaly_l писал(а): Допустим в программе 1111 классов. У них 1111 имён, весом по 111 Kb
vitaly_l писал(а):И лишний, мёртвый код, на самом деле - тоже можно просчитать до компиляции и удалить;
vitaly_l » 24.10.2015 15:42:34
pupsik писал(а):Вы о чем?
Лекс Айрин писал(а):Но так как размер уже мало ограничивает программистов, то никто не собирается усложнять оптимизатор.
Лекс Айрин писал(а):немцы вместе с финнами нервно курят в сторонке. Не забывайте, что 1 килобайт это
pupsik » 24.10.2015 15:49:51
не тестил. Я предпочитаю "грязный" иде, без синеватого намекапод чистым FPC (winAPI)
Лекс Айрин » 24.10.2015 16:24:33
vitaly_l писал(а):Подключите LLCL и снова откомпилируйте, программа станет весить 0,33 Mb...
vitaly_l писал(а):В хорошей программе - каждый бит важен.
pupsik писал(а):Я предпочитаю "грязный" иде, без синеватого намека
pupsik » 24.10.2015 16:27:10
знаю. Но, неужто 3кб файлик получается? Да и разговор то о лазаре, а не фпс. Хоть и касается обоих.Это уже нюансы.
Лекс Айрин » 24.10.2015 16:46:16
pupsik писал(а):а и разговор то о лазаре, а не фпс.
скалогрыз » 24.10.2015 16:49:47
Mikhail » 24.10.2015 17:01:53
{$APPTYPE GUI}
{$mode objfpc}{$H+}
program SimpleForm;
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, Controls, Dialogs, Interfaces, Forms, StdCtrls;
type
{ TMyForm }
TMyForm = class(TForm)
public
edFirst : TEdit;
edSecond: TEdit;
lbFirst : TLabel;
lbSecond: TLabel;
btnExit : TButton;
procedure IntFilter(Sender: TObject; var Key: Char);
procedure ExitApplication(Sender: TObject);
procedure ExitAction(Sender : TObject; var CanClose : boolean);
constructor Create(AOwner: TComponent); override;
end;
{ TMyForm }
procedure TMyForm.IntFilter(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', #8, #13]) then
Key:=#0;
end;
procedure TMyForm.ExitApplication(Sender: TObject);
begin
Close;
end;
procedure TMyForm.ExitAction(Sender: TObject; var CanClose: boolean);
begin
CanClose:=MessageDlg('Предупреждение', 'Вы уверены что хотите закончить?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes;
end;
constructor TMyForm.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Caption:='Hello world';
Position:=poScreenCenter;
edFirst:=TEdit.Create(Self);
with edFirst do begin
SetBounds(10, 30, 300, 21);
Anchors:=[akTop, akLeft, akRight];
OnKeyPress:=@IntFilter;
Parent:=Self;
end;
lbFirst:=TLabel.Create(Self);
with lbFirst do begin
Caption:='First';
SetBounds(10, 15, 100, 21);
FocusControl:=edFirst;
Parent:=Self;
end;
edSecond:=TEdit.Create(Self);
with edSecond do begin
SetBounds(10, 90, 300, 21);
Anchors:=[akTop, akLeft, akRight];
OnKeyPress:=@IntFilter;
Parent:=Self;
end;
lbSecond:=TLabel.Create(Self);
with lbSecond do begin
Caption:='Second';
SetBounds(10, 75, 100, 21);
FocusControl:=edSecond;
Parent:=Self;
end;
btnExit:=TButton.Create(Self);
with btnExit do begin
Caption:='Выход';
SetBounds(230, 205, 75, 25);
Anchors:=[akBottom, akRight];
OnClick:=@ExitApplication;
Parent:=Self;
end;
ActiveControl:=edFirst;
OnCloseQuery:=@ExitAction;
end;
var f1: TMyForm;
begin
Application.Initialize;
Application.CreateForm(TMyForm, f1);
Application.Run;
end.
pupsik » 24.10.2015 17:11:06
Значит вывод: не зависимо или на фпс, или используя лазарус. По идее ???
)? Лекс Айрин » 24.10.2015 17:15:50
Mikhail » 24.10.2015 17:16:47
pupsik писал(а):Mikhail я уже ранее писал. Я более кнопко-нажиматель. Т.е. очень предпочитаю шлёпать морду проги, а не писать. Время меньше, затрат меньше.
Лекс Айрин писал(а):Просто проще для этого использовать блокноты для программистов (или обычные, что не совсем удобно. )
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3