Segue o programa. Espero que seja isso.
Para sair digitar /sair sem as aspas.
program DuplicaTexto;
var
texto : string;
i : integer;
palavra : string;
saida : string;
begin
repeat
readln(texto);
if (texto = '/sair') or (texto = '/SAIR') then
break;
palavra := '';
Encontrei um chamado Processa porém ainda estou
testando.
Da uma olhada no site :
http://www.sistemaprocessa.com.br/
Boa Sorte,
JNiloMS
--- Sérgio Marcelo @ Smace . com . BR,
[EMAIL PROTECTED] escreveu:
-
Alguém conhece algum projeto opensource para
Se eu não me engano o que você que é passar uma função
como referência:
Seria assim:
type
TFuncao = function () : string;
function mostra1 : string;
begin
result := 'mostra1';
end;
function mostra2 : string;
begin
result := 'mostra1';
end;
function mostra(f : TFuncao) : string;
begin
3 matches
Mail list logo