Функции и процедуры Delphi. Справочник.

ХI. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С КЛАССАМИ И КОМПОНЕНТАМИ

1. Функции и процедуры для работы с классами

Процедура RegisterIntegerConsts (
IntegerType: Pointer;
IdentToInt: TIdentToInt;
IntToIdent: TIntToIdent );

Модуль: Classes

type

TIdentToInt = function( const Ident: string; var Int: LongInt): Boolean;
TIntToIdent = function( Int: LongInt; var Ident: string): Boolean;

Описание
Процедура регистрирует функции взаимного преобразования целочисленного и строкового типов.
Данные функции используются для преобразования целочисленных значений в их строковое представление и обратно.
Параметр IntegerType должен указывать на информацию о базовом целочисленном типе. Для получения указателя для данного параметра, используйте функцию TypeInfo.

Пример

function EstimToStr( i: LongInt; var S: string): Boolean;
begin

Result:= True;
case i of

1,2: S:= 'неудовлетворительно';
3 : S:= 'удовлетворительно';
4 : S:= 'хорошо';
5 : S:= 'отлично'

else Result:= False;
end;

end;

function StrToEstim( const S: string; var i: LongInt): Boolean;
begin

Result:= True;
if S='неуд' then i:=2 else

if S='уд' then i:=3 else
  if S='хор' then i:=4 else
    if S='отл' then i:=5 else Result:= False;

end;

procedure TForm1.FormCreate( Sender: TObject);
begin

RegisterIntegerConsts( TypeInfo(LongInt), StrToEstim, EstimToStr);

end;

procedure TForm1.Button1Click( Sender: TObject);
var

Number: string;

begin

if EstimToStr( StrToInt(Edit1.text), Number) then

Edit2.text:= Number;

end;

[Вернуться к содержанию]