Já sabendo como funciona a estrutura inicial de uma aplicação console, tanto em Visual Studio 2010 quanto em Delphi 2010, vamos escrever nosso primeiro código e entender como a mesma funcionalidade trabalhará nas duas diferentes ferramentas.
Nossa aplicação consistirá em uma solução onde o usuário informa um Nome e o sistema se apresenta ao usuário e declara boas vindas!
Visual Studio:
Insira o seguinte código em static void:
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace VisualConsole
{
class Program
{
static void Main(string[] args)
{
//insira seu código aqui
Console.WriteLine("Qual o seu nome?");
string Nome = Console.ReadLine();
Console.WriteLine("");
Console.WriteLine("Prazer em conhecê-lo " + Nome + "!");
Console.WriteLine("Bem Vindo ao Visual Studio C#!");
}
}
}
Figura 1 - Solução Console Application C#
Delphi:
program ProjDelphiConsole;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
Nome: string;
Parar: string;
begin
try
{ TODO -oUser -cConsole Main : Insert code here }
Writeln('Qual o seu nome?');
Readln(Nome);
Writeln('');
Writeln('Prazer em conhece-lo ' + Nome + '!');
Writeln('Bem Vindo ao Delphi!');
Writeln('');
Readln(Parar); //string usada para travar a tela do DOS
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
Figura 2 - Solução Console Application Delphi
Ponto 1: O comando Console.WriteLine do visual corresponde ao Writeln do Delphi. Esse comando realiza a tarefa de escrever um texto na tela de interface com o usuário.
Ponto 2: O comando Console.ReadLine() do Visual corresponde ao comando Readln do Delphi. Esse comando tem a tarefa de ler o dado que o usuário digitou por último.
Ponto 3: No Visual para escrever um texto (string) na tela usa-se aspas duplas (“”), já no Delphi utiliza-se aspas simples (‘’).
Ponto 4: No visual pode-se fazer a declaração da variável já na mesma linha que algum valor é atribuído a ela e no Delphi deve-se declarar a variável ou constante abaixo de uses.
Visual Studio:
string Nome = Console.ReadLine();
uses
…
var
Nome: string;
Begin
…
Readln(Nome);
End
Obs.: caracteres com acento e cedilhas não funcionam em aplicações console do Delphi.
Um grande abraço para todos e até o próximo artigo!
Rafael Marins Ribeiro
Engenheiro de Softwares
rafael.marins.ribeiro@hotmail.com