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

كيفية جعل الحرف الاول من كل كلمة حرف كبير - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية جعل الحرف الاول من كل كلمة حرف كبير (/showthread.php?tid=3042)

كيفية جعل الحرف الاول من كل كلمة حرف كبير - abdelmalek - 29-04-2011

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

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

PHP كود :
'mohammed abd el malek' 

الى

PHP كود :
'Mohammed Abd El Malek' 

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

كيفية جعل الحرف الاول من كل كلمة حرف كبير - AnoirsoftDeveloper - 29-04-2011

السلام عليكم

أخي ،
هناك طريقة لتحويل بادئة الحرف الأول من كل كلمة تكتبها ولكن في 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 - 29-04-2011

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

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 - 29-04-2011

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

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

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

PHP كود :
LowerCase(ASource); 

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

PHP كود :
ASource[x]:=chr(ord(ASource[x])-32); 

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

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

كيفية جعل الحرف الاول من كل كلمة حرف كبير - abdelmalek - 29-04-2011

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

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

PHP كود :
with Edit1 do 

PHP كود :
with (Sender as TEdit) do 

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

كيفية جعل الحرف الاول من كل كلمة حرف كبير - kachwahed - 11-05-2011

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

PHP كود :
with (Sender as TEdit) do 

هذه تعمل مهما كان اسم المكون TEdit المستخدم
بينما الأخرى... استنتج Smile

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