Kelimelerin baş harflerini alma[çözüldü]

[ALUCARD]

Merhaba Arkadaşlar çok aradım ama bulamadım. Kelimelerin baş harflerini alabileceğim bir fonksiyon yada kod parcacığı lazım.


Örnek Olarak Patlıcan Musakka kelimesi (PK) oralak geri dönmeli.

[ALUCARD]

kelimelerin ilk harflerini büyüten fonksiynla biraz oynayınca istediğim şeyi yaptım. belki bir başkasının da işine yarar.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  GetString : string;
  GetLength : Integer;
  I : Integer;
  T : String;
  b : 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']) or (0=0)  then begin
      T:=GetString[I+1];
      T:=UpperCase(T) ;
      b := b +  T ;
  //  showmessage(b)  ;
      GetString[I+1]:=T[1];
     end;
    end;
   end;
   if edit1.Sellength>0 then
     Edit1.Seltext:=GetString
   else Edit1.Text:=GetString;
  end;
 edit2.Text := b;
end;

[ikra]

@ALUCARD

Kod: Tümünü seç

if (GetString[I+1] in ['a'..'z']) or (0=0)  then begin

bu hep True dönmüyor mu?

[ALUCARD]

@ALUCARD

Kod: Tümünü seç

if (GetString[I+1] in ['a'..'z']) or (0=0)  then begin

bu hep True dönmüyor mu?

evet hep true dönüyor biraz daha sadeleştirdim şimdi.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  GetString : string;
  GetLength : Integer;
  I : Integer;
  T : String;
  b : string;
  begin
  if edit1.SelLength > 0 then
    GetString:= Trim(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
      T:=GetString[I+1];
      T:=UpperCase(T) ;
      b := b +  T ;
      GetString[I+1]:=T[1];
     end;
    end;
   if Edit1.Sellength>0 then
     Edit1.Seltext:=GetString
   else Edit1.Text:=GetString;
  end;
 Edit1.Text := b;
end;

[ikra]

GetString'i alirken

Kod: Tümünü seç

Trim(Edit1.SelText)

yazin. Space ile doldurulmus Edit üzerinde islem yapilamasin.