Fórum Function #167311

olha velhinho eu to fazendo um prog de acesso remoto eu acho q entendi sua pergunta tipo eu resolvi este prob da seguinte forma
tem o procedure msg oi

procedure msg;
begin
showmessage(´oi´);
end;

e o msg olá

procedure msg2;
begin
showmessage(´olá´);
end;

ai um q executa a msg correta
procedure executa(msg: integer);
begin
case msg of
1: msg;
2: msg2;
end;
end;

e no onread do componete puz
executa(server.socket.reciveText);
server é o meu server
so naum lembro se o comando se escreve assim mesmo naum to com o delphi aberto
mais é isso
claro q meu programa naum fica mostrando msg né foi só um exemplo
espero ter ajudado

olha velhinho eu to fazendo um prog de acesso remoto eu acho q entendi sua pergunta tipo eu resolvi este prob da seguinte forma
tem o procedure msg oi

procedure msg;
begin
showmessage(´oi´);
end;

e o msg olá

procedure msg2;
begin
showmessage(´olá´);
end;

ai um q executa a msg correta
procedure executa(msg: integer);
begin
case msg of
1: msg;
2: msg2;
end;
end;

e no onread do componete puz
executa(server.socket.reciveText);
server é o meu server
so naum lembro se o comando se escreve assim mesmo naum to com o delphi aberto
mais é isso
claro q meu programa naum fica mostrando msg né foi só um exemplo
espero ter ajudado

olha velhinho eu to fazendo um prog de acesso remoto eu acho q entendi sua pergunta tipo eu resolvi este prob da seguinte forma
tem o procedure msg oi

procedure msg;
begin
showmessage(´oi´);
end;

e o msg olá

procedure msg2;
begin
showmessage(´olá´);
end;

ai um q executa a msg correta
procedure executa(msg: integer);
begin
case msg of
1: msg;
2: msg2;
end;
end;

e no onread do componete puz
executa(server.socket.reciveText);
server é o meu server
so naum lembro se o comando se escreve assim mesmo naum to com o delphi aberto
mais é isso
claro q meu programa naum fica mostrando msg né foi só um exemplo
espero ter ajudado