как переменную типа TFont перевести в тип integer?

[делфи_6]

как переменную типа TFont перевести в тип integer?

[raxp]

если вы взглянете на то, что собой представляет tfont, то увидите, что это целый класс и ваш вопрос некорректен

TFont = class(TGraphicsObject)
  private
    FColor: TColor;
    FPixelsPerInch: Integer;
    FNotify: IChangeNotifier;
    procedure GetData(var FontData: TFontData);
    procedure SetData(const FontData: TFontData);
  protected
    procedure Changed; override;
    function GetHandle: HFont;
    function GetHeight: Integer;
    function GetName: TFontName;
    function GetOrientation: Integer;
    function GetPitch: TFontPitch;
    function GetSize: Integer;
    function GetStyle: TFontStyles;
    function GetCharset: TFontCharset;
    procedure SetColor(const Value: TColor);
    procedure SetHandle(const Value: HFont);
    procedure SetHeight(const Value: Integer);
    procedure SetOrientation(const Value: Integer);
    procedure SetName(const Value: TFontName);
    procedure SetPitch(const Value: TFontPitch);
    procedure SetSize(const Value: Integer);
    procedure SetStyle(const Value: TFontStyles);
    procedure SetCharset(const Value: TFontCharset);
  public
    constructor Create;
    destructor Destroy; override;
    procedure Assign(Source: TPersistent); override;
    property FontAdapter: IChangeNotifier read FNotify write FNotify;
    property Handle: HFont read GetHandle write SetHandle;
    property PixelsPerInch: Integer read FPixelsPerInch write FPixelsPerInch;
  published
    property Charset: TFontCharset read GetCharset write SetCharset;
    property Color: TColor read FColor write SetColor;
    property Height: Integer read GetHeight write SetHeight;
    property Name: TFontName read GetName write SetName;
    property Orientation: Integer read GetOrientation write SetOrientation default 0;
    property Pitch: TFontPitch read GetPitch write SetPitch default fpDefault;
    property Size: Integer read GetSize write SetSize stored False;
    property Style: TFontStyles read GetStyle write SetStyle;
  end;

вот отдельными свойствами можно манипулировать, например так http://www.programmersforum.ru/showt...ighlight=tfont

[делфи_6]

так,ладно...
у меня проблема:
листбокс1,я выбираю букву из списка,мне нужно чтобы потом в листбокс2 вывелся список городов на эту букву.как это сделать?

[raxp]

...и причем тут tfont

procedure listbox1.onclick...
var bukva: string;
begin
 bukva:= listbox1.items[listbox1.itemindex];
 get_gorod(bukva)
end;

cмысл ясен?

[делфи_6]

вот вы пишите bukva
а я не знаю какая буква.я запускаю проект и пользователь сам кликает по любой букве

ааа...т.е. подождите...это мне для каждой буквы все города расписывать??

и еще что такое get_gorod(bukva)
городов то много

[raxp]

делфи_6
вот вы пишите bukva
а я не знаю какая буква.я запускаю проект и пользователь сам кликает по любой букве

делфи_6
листбокс1,я выбираю букву из списка

вопросы?

...это мне для каждой буквы все города расписывать?

вам виднее или по вашему они на потолке нарисованы

что такое get_gorod

процедура выборки городов из списка, ваша процедура

городов то много

без комментариев/

[делфи_6]

var
'A','Б','В'...:string;
выдает ошибку,что не так?

[Juffin]

var
'A','Б','В'...:string;
выдает ошибку,что не так?

надо так:

var b_a:string='А';
     b_b:string='Б';
     b_v:string='В';
     ...

[Андрей 93]

Лучше

const b_a='A';
b_b='B';