Программа на DelphiРефераты >> Программирование и компьютеры >> Программа на Delphi
begin // или тип-потомок от TButton
Caption := '&Ok';
OnClick := OkClick;
end;
(Sender as TButton).Caption := '&Ok'; //свойству Caption переменной
// Sender типа TButton или его потомка присваивается значение '&Ok'
Приложение
Перечень отлаженных процедур и функций, написанных автором
Ниже использованы глобальные типы и переменные:
Type
CompareType = (Less, Equal, Greater);
Var
Lon, Lon2: LongInt;
Serv: String[255];
- Procedure Delay(MilliSec: LongInt);
{задержка времени на MilliSec миллисекунд}
Var k: LongInt;
begin
k:=GetTickCount; {в модуле Windows.pas}
While GetTickCount<(MilliSec+k) do ;
end;
- Function Ctrl_ Shift_Down(i: byte): boolean;
{Нажата ли одна из этих клавиш Ctrl – 1, Shift – 2}
var
ShiftState: TShiftState;
j: LongInt;
begin
Result:=false;
Case i of
1: j:= VK_CONTROL;
2: j:= VK_SHIFT;
end;
ShiftState := KeyDataToShiftState(j);
Case i of
1: Result:= (ssCtrl in ShiftState);
2: Result:= (ssShift in ShiftState);
end;
end;
- Function CtrlDown: boolean;
{нажата ли клавиша Ctrl}
begin
Result:=Ctrl_ Shift_Down(1);
end;
- Function ShiftDown: boolean;
{нажата ли клавиша Shift}
begin
Result:=Ctrl_Shift_Down(2);
end;
- Function Profit(Expend, Price: Real): Real;
{рентабельность=(цена - затраты)/затраты*100}
begin
if (Expend<>0) then Result:= (Price/Expend-1.0)*100.0
else Result:= 1.e5;
end;
- Procedure Warn1(S: Variant);
{Окно с Variant-значением, например Warn1('Процесс закончен')}
begin
MessageDlg(S, mtInformation, [mbOk], 0);
Screen.ActiveForm.Refresh;
End;
- Procedure Warn4(s1,s2,s3,s4: String);
{то же , что Warn1, но в 4 строки}
var i,j: byte;
begin
i:=Length(s1); j:=i;
i:=Length(s2);
if (i>j) then j:=i;
i:=Length(s3);
if (i>j) then j:=i;
i:=Length(s4);
if (i>j) then j:=i;
Warn1(Center(s1,j)+''#13#10+''+Center(s2,j)
+''#13#10''+Center(s3,j)+''#13#10+''+Center(s4,j));
end;
- Function DaNet(S: String): boolean;
{Окно. Предназначено для вопроса, на который можно ответить, щелкнув по одной из кнопок "Да" или "Нет"}
begin
DaNet:=MessageDlg(S, mtConfirmation, [mbYes, mbNo], 0)=mrYes;
Screen.ActiveForm.Refresh;
end;
- Function DaNet4(s1,s2,s3,s4: String): boolean;
{Окно. То же, что DaNet, только в 4 строки}
begin
DaNet4:=MessageDlg(Trim(s1)+''#13#10+''+Trim(s2)+''#13#10''+Trim(s3)
+''#13#10+''+Trim(s4),mtConfirmation,[mbYes, mbNo], 0)=mrYes;
Screen.ActiveForm.Refresh;
end;
- Function InOtrReal(i,a,b: real): boolean;
{Если i в орезке [a, b], то возвращает True}
begin
Result:=(i>=a) and (i<=b);
end;
- Function ExitK: boolean;
{стандартный вопрос о выходе}
begin
ExitK:=DaNet('Выход ?');
end;
- Function Pos2(SubS, S: String; StartPos: byte): boolean;
{входит ли SubS в S начиная с StartPos}
begin
Lon:=Pos(SubS,S);
Result:= (Lon > 0) and (StartPos = Lon);
end;
- Function ChStr(Ch: Char; d: Word): String;
{создает строку из символа Ch, повторенного d раз}
begin
if d>0 then
begin
SetLength(Result,d);
FillChar(Result[1],d,Ch);
end;
end;
- Function Prop(d: Word): String;
{создает строку из d пробелов}
begin
Result:=ChStr(' ',d);
end;
- Function Pad(s: String; d: Word): String;
{вставляет справа от строки пробелы, добирая ее до длины d}
begin
Serv:=s;
Lon:=Length(s);
If (d>Lon) then Serv:=s+Prop(d-Lon);
Result:=Serv;
end;
- Function PadCopy(s: String; n,d: Word): String;
{копирует из s начиная с позиции n строку длины d. В случае меньшей строки добирает ее до длины d}
begin
Serv:=Copy(s,n,d);
if Length(Serv) < d then Serv:=Pad(Serv,d);
Result:=Serv;
end;
- Function LeftPad(s: String; d: Word): String;
{вставляет слева от строки пробелы, добирая ее до длины d}
begin
Serv:=s;
Lon:=Length(s);
if (d>Lon) then Serv:=Prop(d-Lon)+s;
Result:=Serv;
end;
- Function Center(s: String; d: Word): String;
{вставляет слева и справа от строки поровну пробелы, добирая ее до длины d}
begin
Serv:=s;
Lon:=Length(s);
Lon2:=Round(0.5*(d-Lon));
if (d>Lon) then Serv:=Prop(Lon2)+s+Prop(d-Lon2);
Result:=Serv;
end;
- Function CompStrings(s1,s2: String): CompareType;
{сравнение строк: s1<s2 - Less, s1=s2 - Equal, s1>s2 - Greater}
begin
if (s1<s2) then CompStrings:=Less
else
if (s1>s2) then CompStrings:=Greater
else
CompStrings:=Equal;
end;
- Function CompReal(r1,r2: Real): CompareType;
{сравнение вещественных чисел}
begin
if (r1<r2) then Result:=Less
else
if (r1>r2) then Result:=Greater
else
Result:=Equal;
end;
- Procedure IncRe(Var r: Real; h: real);
begin
r:=r+h;
end;
- Function LongToStr(L: LongInt; d: byte): String;
{конвертирует целое в строку длины d}
begin
Str(L,Serv);
Result:=LPad(Serv,d);
end;
- Function Long2Str(L: LongInt): String;
{конвертирует целое в строку}
begin
Str(L,Serv);
Result:=Serv;
end;
- Function StrLong(st: String): LongInt;
{конвертирует строку в целое }
begin
Val(Trim(st),Lon,Code);
Result:=Lon; end;
- Function Str2Long(st: String; Var L: LongInt): boolean;
{конвертирует строку в целое. Возвращает True в случае успеха}
begin
Val(Trim(st),L,Code);
Result:=(Code=0);
end;
- Function RealToStr(R: Real; Posle: byte): String;
