घर
Top.Mail.Ru Yandeks.Metrika
मंच: "मुख्य";
वर्तमान संग्रह: 2003.09.01;
डाउनलोड करें: [xml.tar.bz2];

नीचे

कार्य करने के लिए घटक पास करें इसी तरह की शाखाएँ खोजें


PlaZZma   (2003-08-16 02:12) [0]

Объясните, если можно, как мне вытворить вот такое безобразие:
У меня на форме есть несколько TEdit"ов. Нужно сделать процедуру, которая по-надобности будет исправлять в одном из них текст.
Как передать в неё какой-либо TEdit, чтобы получилось нечто вроде:
procedure TfmTask.EditText(var Prampam : TEdit {или как-то так, не знаю});
शुरू करना
Prampam.Text := "Здесь был Вася :)";
अंत;



Е-Моё имя   (2003-08-16 02:16) [1]

procedure TfmTask.EditText(Prampam : TEdit);
शुरू करना
Prampam.Text := "Здесь был Вася :)";
अंत;



Pindos   (2003-08-16 02:24) [2]

ну EditText(var Prampam : TEdit {или как-то так, не знаю});
var не обязателен,
а процедура так ибудет текст испралять, если её вызвать из какой то другой процедуры
नमूना:
procedure TfnTask.button1Click(Sender:Tobject);
var i:integer;
begin
for i:=1 to 5 do
edittext(findcomponent("Edit"+inttostr(i)));
end;



PlaZZma   (2003-08-16 02:26) [3]

Осспасиба ребяты! помогли! Век не забуду!



पन्ने: 1 पूरी शाखा

मंच: "मुख्य";
वर्तमान संग्रह: 2003.09.01;
डाउनलोड करें: [xml.tar.bz2];

ऊपर





मेमोरी: 0.54 एमबी
समय: 0.028 c
1-1493
एनएमए
2003-08-18 09:37
2003.09.01
मैं शायद अपने मूर्खतापूर्ण प्रश्न के लिए माफी माँगता हूँ, लेकिन क्या मुझे पता चल सकता है


3-1339
हूच
2003-08-07 11:01
2003.09.01
एडीओ में संपादन योग्य


1-1411
sergg
2003-08-09 18:17
2003.09.01
XP में 98 से रूसी वर्ण


6-1540
Oleg__
2003-06-11 10:23
2003.09.01
RasGetEntryDialParams


3-1303
SPA81
2003-08-05 08:33
2003.09.01
रिकॉर्डिंग





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский