سلام عليکم
احتمالا عنوان گويا نيست.من يک کد در سورسهای نمونه آموزشي ديدم:
function ValToString(Value: Variant): String;
begin
case TVarData(Value).VType of
varSmallInt,
varInteger : Result := IntToStr(Value);
varSingle,
varDouble,
varCurrency : Result := FloatToStr(Value);
varDate : Result := FormatDateTime('dd.mm.yyyy', Value);
varBoolean : if Value then Result := 'T' else Result := 'F';
varString : Result := Value;
else Result := '';
end;
end;
از اين تابع براي نمايش رشته و عدد اعشار استفاده کردم اما نتونست عدد صحيح مثلا يک رو نشون بده.
من گاهي در برنامه هام براي اشکال زدايي مقدار يک متغير رو براي خودم نمايش ميدم. دوست داشتم بشه گاهي ترکيبي از عدد و رشته رو به صورت آرايه به يک پروسيجر بدم که نمايش بده.
ممنون ميشم راهنمايي کنيد