Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подскажите как в Tedit перечислить string функции [D6, Win95/98, Win2k]

FragMan © (2004-06-12 09:26:00)
Проблемка такая!
Есть у меня несколько функций взятых из 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);
<...цикл...>

evvcom (2004-06-13 01:18:00) [1]
2 FragMan: Ты сам разберись, чего тебе нужно, а уж потом про танки толкуй.

GuAV (2004-06-12 13:27:00) [2]
Ещё смешнее:
function GetFunction: array[(R1,R2,R3,R4)] of function: string;

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

FragMan (2004-06-12 11:28:00) [3]
> 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 11:02:00) [4]
Копай в сторону массивов. напиши array и нажми F1

FragMan (2004-06-12 10:58:00) [5]
> 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 10:56:00) [6]

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

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

Gero (2004-06-12 10:44:00) [7]
for

GuAV (2004-06-12 10:44:00) [8]
FragMan (12.06.04 10:29) [2]

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

Ozone (2004-06-12 10:33:00) [9]
К примеру! есть у меня стринговые переменные типа S1,s2,s3,s4:integer;

Я плакаль ...

FragMan (2004-06-12 10:29:00) [10]
Так! Похоже, что проблема была не правильно растолкована :)

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

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

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

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

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

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

KSergey (2004-06-12 10:02:00) [11]
См. LoadLibrary и GetProcAddress
Примеры применения в дельфи - искать яндексом

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »