Új hozzászólás Aktív témák

• #1222 VladimirR nagyúr KMan #1221

  Új Válasz 2006-05-16 12:33:18 #1222

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  VladimirR

  nagyúr

  válasz KMan #1221 üzenetére

  gondolom azert a readkey, hogy lassa a program kimenetet
  
  egyebkent irhatsz raja fuggvenyt, vagy eljarast
  
  function strtoupper( s : string ) : string;
  var
    ups : string;
    i : byte;
  begin
    for i := 1 to length( s ) do
      ups[i] := upcase( s[i] );
    ups[0] := s[0];
    strtoupper := ups;
  end;
  
  [Szerkesztve]

Új hozzászólás Aktív témák