Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Kelimelerin İlk Harfini Büyük Yapma

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,113
  • MFC Puanı
    10
  • MFC Seviyesi

Kod:
/ Orijinal kaynak kodlar:
// delphi.about.com


procedure TForm1.Button1Click(Sender: TObject) ;
var
  GetString : string;
  GetLength : Integer;
  I : Integer;
  T : String;
begin
  if edit1.SelLength > 0 then
    GetString:= Edit1.Seltext
  else GetString:= Edit1.Text;
  GetLength:= Length(Edit1.Text) ;
  if GetLength>0 then begin
   for I:= 0 to GetLength do begin
    if (GetString[i] = ' ') or (I=0) then begin
     if GetString[I+1] in ['a'..'z'] then begin
      T:=GetString[I+1];
      T:=UpperCase(T) ;
      GetString[I+1]:=T[1];
     end;
    end;
   end;
   if edit1.Sellength>0 then
     Edit1.Seltext:=GetString
   else Edit1.Text:=GetString;
  end;

end;
 
Üst Alt