زبان Delphi : تمامی مباحث و مسائل

[hp1361]

سلام
مي خوام يه برنامه بنويسم كه تعداد كاراكتر هاي يك متن رو حساب كنه
لطفا اگه كسي مي دونه راهنمايي كنه
مرسي

با سلام

شما میتونید از تابع GetTextLen استفاده کنید

این تابع تعداد کل کاراکتر های یک عنصر را بصورت عدد صحیح بر می گرداند

GetTextLen . نام عنصر
برای مثال

x:= Memo1.GetTextLen ; 1

این دستور تعداد کاراکتر های عنصر Memo1 را در x قرار می دهد.

موفق باشید

[مرد مباح]

سلام دوستان.
من يك برنامه نويس دلفيم.
در زمينه Database كار مي كنم.

مي خواستم ببينم كه آيا دلفي Component براي ساخت برنامه گوشي داره يا نه؟

اگه داره لطفا لينكشو بدين.

و اگرهم نه هر كسي در اين رابطه اطلاعاتي داره منو راهنمايي كنه.

پيشاپيش ممنون.

[batri]

سلام.
به نظر من شما در برنامه های p2p جستجو کنید.
مثلا component for delphi mobile
البته برای نسخه 2005 که بعید میدونم راحت پیدا بشه.
راستی شما database در دلفی کار می کنید یعنی چی!!
paradox 7? Dbxpress

[batri]

سلام.
آقا کسی نمی دونه افکت چطوری میشه گذاشت تو دلفی ؟
مثلا برنامه که اجرا میشه با افکت باشه؟

[مرد مباح]

من در زمينه ديتابيس كار مي كنم.
با هرچي كه بسه.
ولي معمولا Access و يا SQL.
چطور مگه؟

[امير جان]

با سلام :
چطور ميتوان سريال سي پي يو --- هارد - مادر برد --و .... را در دلفي بدست آورود

[hadisezar]

در باره بانك اطلاعاتي در دلفي يك مقاله خوب مي خواهم

[NaserM]

سلام کسی فونت traffic رو داره که رو Windows Service Pack 2 به بالا نصب بشه ؟
من یکی دارم که روی service pack 1 نصب میشه اما روی 2 نصب نمیشه
اگه میتونین راهنمایی کنید
اگه کسی این فونت را میخواد بگه که براش میل بزنم .
راستی من چون برای کار دلفی میخوام در این قسمت نوشتم .

[sahar_f]

سلام دوستان يه سوال دارم
ميخوام در برنامه امكاني را بگذارم كه بتونه Ip آدرسهايي رو كه بهش ميدي نشان بده (وقتي كه به اينترنت وصله)؟

ممنون ميشم اگه كمكم كنيد؟

[NoneForce]

سلام
از اين كد مي تونيد براي گرفتن آي پي استفاده كنيد

function GetIPFromHost(const HostName: string): string;
type
TaPInAddr = array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
i: Integer;
GInitData: TWSAData;
begin
WSAStartup($101, GInitData);
Result := '';
phe := GetHostByName(PChar(HostName));
if phe = nil then Exit;
pPtr := PaPInAddr(phe^.h_addr_list);
i := 0;
while pPtr^[i] <> nil do
begin
Result := inet_ntoa(pptr^[i]^);
Inc(i);
end;
WSACleanup;
end;