كيفية جعل الحرف الاول من كل كلمة حرف كبير

[abdelmalek]

السلام عليكم ورحمة الله وبركاته

هل توجد إجرائية تعمل على تحويل الحرف الاول من كل كلمة الى حرف كبير ؟؟
مثلا :
من

PHP كود :

'mohammed abd el malek' 


الى

PHP كود :

'Mohammed Abd El Malek' 


وسلام عليكم ورحمة الله وبركاته

[AnoirsoftDeveloper]

السلام عليكم


أخي ،
هناك طريقة لتحويل بادئة الحرف الأول من كل كلمة تكتبها ولكن في Tedit

تفضل :

كود :

procedure TForm1.Edit1Change(Sender: TObject); var OldChange: TNotifyEvent; OldStart: Integer; begin with (Sender as TEdit) do begin OldChange := OnChange; OnChange := nil; OldStart := SelStart; if ((SelStart > 0) and (Text[SelStart - 1] = ' ')) or (SelStart = 1) then begin SelStart := SelStart - 1; SelLength := 1; SelText := AnsiUpperCase(SelText); end; OnChange := OldChange; SelStart := OldStart; end; end;

سأواصل بحثي وجهدي لكي افيدك بما تود

[mohfa]

تفضل اخي عبد المالك مع اني كنت اتمنى ان تقوم بمحاولة كما في السابق :

PHP كود :

function ConvertToCap(const ASource: string): string;
const
  ACCEPTEDCHARS = ['a'..'z'];
var
  i: Integer;
  CapAll:Boolean; // Capitalize all 1st Chrs
begin
  CapAll :=True;
// Result:=ASource
  Result := LowerCase(ASource);
  // if Result<>'' then
  if Result <> EmptyStr then
  // Loop through all Chrs
    for i := 1 to Length(Result) do
      if CapAll then begin   // Start Cap with a True Flag
        Result[i] := UpCase(Result[I]); // hello world ---> Hello World
        CapAll := False;
      end else
      {* if you work Under Delphi 2009 >
      then
      the following can be switched into :
      if NOT CharInSet(Result[i], ACCEPTEDCHARS) then
      *}
      if Not (Result[i] In ACCEPTEDCHARS ) then
        CapAll := True;
end; 


للتجريب :

PHP كود :

ShowMessage(ConvertToCap('mohammed abd el malek')); 


والسلام عليكم ورحمة الله وبركاته

[abdelmalek]

بارك الله فيكم اخواني AnoirsoftDevloper و mohfa

تفضل اخي عبد المالك مع اني كنت اتمنى ان تقوم بمحاولة كما في السابق :

أخي mohfa كانت عندي لخبطة في التحويل من الحرف الصغير الى الكبير ولقد قمت انت بحلها .
بجعل جميع الحروف صغيرة في المرحلة الاولى حسب السطر التالي :

PHP كود :

LowerCase(ASource); 


انه سطر مهم جدا ...
اما في مايخص التحويل من الحرف الصغير الى الحرف الكبير يكون بهاته الطريقة القديمة :

PHP كود :

ASource[x]:=chr(ord(ASource[x])-32); 


وهي طريقة تعتمد على الحروف في الجدول Ascii

شكرا لكم احبابي.

[abdelmalek]

السلام عليكم ورحمة الله وبركاته

ماهو الفرق بين ان اضع :

PHP كود :

with Edit1 do 


و

PHP كود :

with (Sender as TEdit) do 


كما هو موجود في المثال الذي وضعه الاخ الكريم AnoirsoftDevloper .
بارك الله فيكم

[kachwahed]

وعليكم السلام ورحمة الله وبركاته

PHP كود :

with (Sender as TEdit) do 


هذه تعمل مهما كان اسم المكون TEdit المستخدم
بينما الأخرى... استنتج
الدالة التي تبحث عنها (إن لم تخني الذاكرة) موجودة ضمن مجموعة o_Function
بالتوفيق.