Скачать: CL | DM;

Подскажите как в Tedit перечислить string функции   Найти похожие ветки 

← →
FragMan   (2004-06-12 09:26) [0]

Проблемка такая!
Есть у меня несколько функций взятых из dll скажем:

function R1:string; stdcall external
"project1.dll";
function R2:string; stdcall external
"project1.dll";
function R3:string; stdcall external
"project1.dll";
function R4:string; stdcall external
"project1.dll";
function R5:string; stdcall external
"project1.dll";

Подскажите пожалуйста как можно их пересчётом вывести в TEdit???

Пример:
var counter:integer;
<...цикл...>
Edit1.text:=D+inttostr(Counter);
<...цикл...>

---

← →
KSergey ©   (2004-06-12 10:02) [1]

См. LoadLibrary и GetProcAddress
Примеры применения в дельфи - искать яндексом

---

← →
FragMan   (2004-06-12 10:29) [2]

Так! Похоже, что проблема была не правильно растолкована :)

Объясняю, для тех кто в танке или попросту не проснулся!!!

К примеру! есть у меня стринговые переменные типа S1,s2,s3,s4:integer;

чтобы не выводить их в Tedit как:

edit1.text:=s1+s2+s3+s4;

Прошу подсказать как мне сделать ЭТО перечислением , например как-нить так:

var counter:integer;
<...цикл...>
Edit1.text:=D+inttostr(Counter);
<...цикл...>

---

← →
Ozone ©   (2004-06-12 10:33) [3]

К примеру! есть у меня стринговые переменные типа S1,s2,s3,s4:integer;

Я плакаль ...

---

← →
Gero ©   (2004-06-12 10:44) [4]

for

---

← →
GuAV ©   (2004-06-12 10:44) [5]

FragMan   (12.06.04 10:29) [2]

это из серии, как запустить процедуру, имя которой в переменой типа string...

---

← →
GuAV ©   (2004-06-12 10:56) [6]

> Объясняю, для тех кто в танке или попросту не проснулся!!!

попросту не проснулся я, но в танке видимо Вы. Сравните [0] и [2].

---

← →
FragMan   (2004-06-12 10:58) [7]

> Ozone ©
Мда :))) Вот я выдал прикол :))) Не удивительно :) что ты прослезился, гыы :)) Я тож со стула чуть не рухнуль

> Gero ©
Существенное замечание :))) Это самый ценный совет за всё время, что я здесь сижу :)))

> GuAV ©
Это как? а на примере можно?

как мне код подправить?

var counter:integer;
d1,d2,d3,d4:string;
begin
d1:="1";
d2:="2";
d3:="3";
d4:="4";
<...цикл...>
Edit1.text:=d+inttostr(Counter);
<...цикл...>
end;

---

← →
GuAV ©   (2004-06-12 11:02) [8]

Копай в сторону массивов. напиши array и нажми F1

---

← →
FragMan   (2004-06-12 11:28) [9]

> GuAV ©

Прикольно выглядит :)))

array
function R1:string; stdcall external
"project1.dll";
function R2:string; stdcall external
"project1.dll";
function R3:string; stdcall external
"project1.dll";
function R4:string; stdcall external
"project1.dll";
function R5:string; stdcall external
"project1.dll";
of string :)))

Я сейчас умру от смеха :))

---

← →
GuAV ©   (2004-06-12 13:27) [10]

Ещё смешнее:
function GetFunction: array[(R1,R2,R3,R4)] of function: string;

по сабжу: если [0], то [1], а если [2], то [3]+[4]+[8].
а если надо решить задачу в общем случае, то [5]

---

← →
evvcom ©   (2004-06-13 01:18) [11]

2 FragMan: Ты сам разберись, чего тебе нужно, а уж потом про танки толкуй.

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.022 c