Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.29;
Скачать: CL | DM;

Вниз

С типами не разберусь никак :(   Найти похожие ветки 

 
McSimm2   (2003-09-16 09:42) [0]

Есть переменная в моём классе типа стринг. Хочу присваивать её значения любого типа, а мой класс всё это переводил в стринг.


function TForm1.AllToStr(const Value: array of const): string;
const BString: array [Boolean] of string = ("False", "True");
var i: integer;
S: string;
begin
Result := "";
for i := Low(Value) to High(Value) dO
with TVarRec(Value[i]) do begin
case VType of
vtInteger : S := IntToStr(VInteger);
vtBoolean : S := BString[VBoolean];
vtChar : S := VChar;
vtExtended : S := FloatToStr(VExtended^);
vtString : S := VString^;
vtPointer : S := IntToHex(LongInt(VPointer), 8);
vtPChar : S := StrPas(VPChar);
vtObject : S := vObject.ClassName;
vtClass : S := vClass.ClassName;
end;
AppendStr(Result, S);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a, b: Integer;
s: String;
begin
a := 100;
s := "sss";
Label1.Caption := AllToStr([ s, a, "+", b, "=", a+b, Label1]);
end;


Почему переменная `s` не воспринимается, как vtString ???
К какому тогда типу должен относиться передаваемый мной последовательный набор символов ???


 
KSergey ©   (2003-09-16 09:45) [1]

Может array of variant?


 
McSimm2   (2003-09-16 09:53) [2]

Не-е-е-е, эт не то.
Я сам разобрался уже.
Набор символов "sdfgsdfsdf" воспринимается,как

vtAnsiString: Result := Result + string(VAnsiString);



Страницы: 1 вся ветка

Текущий архив: 2003.09.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
4-96479
McSimm2
2003-07-28 10:11
2003.09.29
GetWindowText


14-96376
Skywalker
2003-09-12 13:39
2003.09.29
Инфо


7-96459
Landgraph
2003-07-17 09:12
2003.09.29
Разрешение в DOS


14-96358
Mr@MsGuns
2003-09-11 19:44
2003.09.29
Ловец снов Стивена Кинга


1-96204
falcan
2003-09-15 19:45
2003.09.29
Злобные эдиты и противные массивы