Upcase

Internφ programovacφ jazykC/C++Pascal

procedure Upcase(var str : string);
void Upcase(char * str);
procedure Upcase(str : Pchar);

Parametry

str °et∞zec znak∙

Popis

Procedura Upcase konvertuje vÜechna malß pφsmena v °et∞zci str na velkß. Umφ konvertovat i nßrodnφ znaky.

P°φklad

ss := 'C:\*.DBF';
  if Select_file(0,ss) then begin
    s := StrCopy(ss,StrLength(ss)-2,3);
    UpCase(s);
    if s ='DBF' then begin
      Reset(f,ss);                       // otev°enφ DBF souboru

Viz