Ir para conteúdo
Fórum Script Brasil
  • 0

Como Faço Esse Função


mariquito

Pergunta

6 respostass a esta questão

Posts Recomendados

  • 0

Opa

mariquito, se da erro no edScreenName então talvez esteja linkado

errado o componente, que deve ser um Edit, tente remover este

edit e colocá-lo novamente com o nome EdScreenName

WriteTextk voce definiu como String correto?

abraço

Link para o comentário
Compartilhar em outros sites

  • 0
Opa

mariquito, se da erro no edScreenName então talvez esteja linkado

errado o componente, que deve ser um Edit, tente remover este

edit e colocá-lo novamente com o nome EdScreenName

WriteTextk voce definiu como String correto?

abraço

isso mais error ainda está aqui olha a função

function enviaraosocket(valor: String): String;

var

WriteTextk:string;

begin

WriteTextk := '<' + edScreenName.Text + '>' +

'<' + '"Server Admin"' + '>' +

'<' + valor + #13#10'>';

ChatClientSocket.Socket.SendText(WriteTextk);

end;

chamar a função "enviaraosocket('TEXTO ENVIADO');"

ERROR NO COMPILAR

[Error] Unit_Client_Main.pas(313): Undeclared identifier: 'edScreenName'

Link para o comentário
Compartilhar em outros sites

  • 0

Ahhhhhhhhhhhhhhh

Agora que você colou a função inteira que eu vi o erro rs

Seguinte, você criou a função mas ela não tem ligação

com o Form, então o compilador não vai reconhecer o

EdScreenName mesmo, pra isso, você teria que linkar

sua função com o form da seguinte forma:

Em private você coloca o cabeçalho da função...

private

function enviaraosocket(valor: String): String;

Agora na função você linka o form, exemplo

function TNomedoForm.Enviaraosocket(valor: String): String;

var

WriteTextk:string;

begin

WriteTextk := '<' + edScreenName.Text + '>' +

'<' + '"Server Admin"' + '>' +

'<' + valor + #13#10'>';

ChatClientSocket.Socket.SendText(WriteTextk);

end;

Há outras formas também, chamando o form

function enviaraosocket(valor: String): String;

var

WriteTextk:string;

begin

WriteTextk := '<' + NomedoForm.edScreenName.Text + '>' +

'<' + '"Server Admin"' + '>' +

'<' + valor + #13#10'>';

NomedoForm.ChatClientSocket.Socket.SendText(WriteTextk);

end;

ou também pra otimizar a leitura do código

function enviaraosocket(valor: String): String;

var

WriteTextk:string;

begin

with NomedoForm do

begin

WriteTextk := '<' + edScreenName.Text + '>' +

'<' + '"Server Admin"' + '>' +

'<' + valor + #13#10'>';

ChatClientSocket.Socket.SendText(WriteTextk);

end;

end;

Eu aconselho você usar ou o exemplo 1 ou o 3

abraço

Link para o comentário
Compartilhar em outros sites

  • 0
Ahhhhhhhhhhhhhhh

Agora que você colou a função inteira que eu vi o erro rs

Seguinte, você criou a função mas ela não tem ligação

com o Form, então o compilador não vai reconhecer o

EdScreenName mesmo, pra isso, você teria que linkar

sua função com o form da seguinte forma:

Em private você coloca o cabeçalho da função...

private

function enviaraosocket(valor: String): String;

Agora na função você linka o form, exemplo

function TNomedoForm.Enviaraosocket(valor: String): String;

var

WriteTextk:string;

begin

WriteTextk := '<' + edScreenName.Text + '>' +

'<' + '"Server Admin"' + '>' +

'<' + valor + #13#10'>';

ChatClientSocket.Socket.SendText(WriteTextk);

end;

Há outras formas também, chamando o form

function enviaraosocket(valor: String): String;

var

WriteTextk:string;

begin

WriteTextk := '<' + NomedoForm.edScreenName.Text + '>' +

'<' + '"Server Admin"' + '>' +

'<' + valor + #13#10'>';

NomedoForm.ChatClientSocket.Socket.SendText(WriteTextk);

end;

ou também pra otimizar a leitura do código

function enviaraosocket(valor: String): String;

var

WriteTextk:string;

begin

with NomedoForm do

begin

WriteTextk := '<' + edScreenName.Text + '>' +

'<' + '"Server Admin"' + '>' +

'<' + valor + #13#10'>';

ChatClientSocket.Socket.SendText(WriteTextk);

end;

end;

Eu aconselho você usar ou o exemplo 1 ou o 3

abraço

vai veio certinho muito obrigado!

vlw irmão

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...