BooleanToStr

← →
Ihtiandr © (2003-02-28 10:36) [0]

Подскажите как в метку записать булевое значение?

← →
Владислав © (2003-02-28 10:38) [1]

А что такое метка?

← →
Ihtiandr © (2003-02-28 10:47) [2]

label

← →
ROk © (2003-02-28 10:49) [3]

Label.Caption:="False";
или
Label.Caption:="True";

← →
han_malign © (2003-02-28 10:51) [4]

const BoolStr: array[boolean]of string=("False","True");
var f: boolean;
..........
Label1.Caption:=BoolStr[f];

в С-шном стиле (0,1):
Label1.Caption:=IntToStr(Ord(f));

← →
mrcat © (2003-02-28 10:51) [5]

BoolToStr F1

← →
ggsoft © (2003-02-28 10:51) [6]

rgBools: array[Boolean] of String = ("False", "True");
Label1.Caption = rgBools[MyBoolExpr];

нет под рукой Delphi, может в синтаксисе инициализации массива напутал.

← →
REA © (2003-02-28 11:36) [7]

Unit
SysUtils
Category
type conversion routines

Delphi syntax:
function StrToBool(const S: string): Boolean;

SeeAlso: TrueBoolStrs, FalseBoolStrs

← →
Юрий Зотов © (2003-02-28 23:41) [8]

Label1.Caption := GetEnumName(Ord(BoolVar));

← →
Юрий Зотов © (2003-03-01 00:07) [9]

Уточнение.

uses
..., TypInfo;

var
BoolVar: Boolean;

Label1.Caption := GetEnumName(TypeInfo(Boolean), Ord(BoolVar))

> Юрий Зотов © (01.03.03 00:07)

Извините, Юрий. А насколько вообще хорошо использовать
> uses> ..., TypInfo;
Просто я работал с такими вещами в Д3, потом в Д6 - прогу пришлось сильно менять.
То есть является ли подобная вещь правилом хорошего тона?
Или надо по возможности избегать подобного?

> Думкин © (01.03.03 07:34)

1. Хотите Вы того, или нет, но TypInfo все равно используется. Например, при чтении формы из ресурсов (см. TReader).

2. При переходе на D6 с более ранних версий программу все равно приходится довольно сильно менять (хотя бы потому, что в D6 из-за поддержки кроссплатформенности изменился состав модулей). TypInfo здесь ни при чем.

3. Весьма активно использую TypInfo уже много лет, начиная еще с D1 и Win16 (уж такой характер большинства решаемых задач). До сих пор проблем не имел (правда, и на D6 еще не перешел - из-за п.2 - слишком много придется перелопачивать).

> Юрий Зотов © (01.03.03 09:50)

Спасибо.
Я его тоже пользую. Но именно п.2. меня немного напряг недавно, и я засомневался.
Просто я последние несколько проектов формы из ресурсов не читаю(dfm - вообще нет), да и в Treader - уже попотели, а тут самому приходится.

← →
vr_Raven (2003-03-01 17:26) [13]

function _booleantostr(a: boolean): string; begin if a then Result:="true" else Result:="false"; end;

BooleanToStr Найти похожие ветки