UGS_AnsiFirstCharUpper fonsiyonum

[freeman35]

Kod: Tümünü seç

   function UGS_AnsiFirstCharUpper(S : string):string ;
    var C : string[1];
        I : Integer;
    begin
     Result := S;
     if Length(Trim(S))<1then Exit;
      s := AnsiLowerCaseFileName(S);
      C := s[1];
      Delete(S,1,1);
      Result := AnsiUpperCase(C)+S;
      for I:=2 To Length(Result)-1do 
       if Result[I]='İ'then Result[I]:='i';
    end;

Bana Lazım oldu azönce, başkalarınında işine yarayabilir sanırım

Kolay gele