Duvida em Pascal

[BruNo_GouLarT]

Gente, na linguagem C tem a função "TOUPPER" que ao ler uma variável, automaticamente ela se torna maiúscula! Gostaria de saber se existe esse tipo de comando no Pascal e saber sua sintaxe!

Abração! :blush:

[Paulo_elite]

Gente, na linguagem C tem a função "TOUPPER" que ao ler uma variável, automaticamente ela se torna maiúscula! Gostaria de saber se existe esse tipo de comando no Pascal e saber sua sintaxe!

Abração! :blush:

Depende de qual compilador você está usando...

Alguns compiladores pascal não tem tantas bibliotecas com essas funções...

Abraços...

Paulo!!!

[BruNo_GouLarT]

Estou usando o Turbo Pascal, da Borland... Será que eu não consigo adicionar uma biblioteca aki?

[Paulo_elite]

Estou usando o Turbo Pascal, da Borland... Será que eu não consigo adicionar uma biblioteca aki?

agora não estou me lembrando de bibliotecas do turbo pascal...

mais ele usa a sua própria...

lá no começo do rpgrama você declara ela... (WINCRT), ele só roda se ela estiver declarada... é uma biblioteca mais visual!!!

Program Script_Brasil;
uses wincrt;
var
// e assim por diante...

Abraços...

Paulo!!!

Editado Março 12, 2008 por Paulo_elite

[BruNo_GouLarT]

OK então...

Muito obrigado pela atenção Paulo!

Um abraço! ;)

[Paulo_elite]

OK então...

Muito obrigado pela atenção Paulo!

Um abraço! ;)

Eu que agradeço... :rolleyes:

qualquer dúvida, post aqui no fórum que a galerinha vai lhe ajudar...

Principalmente eu...

Abraços...

Paulo!!!

Editado Março 13, 2008 por Paulo_elite

[Micheus]

Gente, na linguagem C tem a função "TOUPPER" que ao ler uma variável, automaticamente ela se torna maiúscula! Gostaria de saber se existe esse tipo de comando no Pascal e saber sua sintaxe!

Estou usando o Turbo Pascal, da Borland... Será que eu não consigo adicionar uma biblioteca aki?

BruNo_GouLarT, existe apenas a função UpCase que converte caracteres (apenas 1) e a função StrUpper que converte cadeias de caracter do tipo PChar (que é diferente de string).

Assim, para converter uma string, você pode criar uma função para isto, onde processa cada caracter da string convertendo ele para maiúsculo.

Vou postar um programa basicão ilustrando seu uso:

program TesteUp;

function UpperCase(source :string) :string;
var
  Idx :byte;
begin
  for Idx := 1 to Length(source) do
    source[Idx] := UpCase(source[Idx]);
  UpperCase := source;
end;

var
  Linha :string[50];
begin
  Write('Digite um texto: ');  Readln(Linha);
  Writeln(UpperCase(Linha));
  Readln;
end.

Abraços