Como Faço Esse Função

[mariquito]

como eu faço essa função

estar dando error no "edScreenName.Text " parece que não encontra mais ele estar la

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

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

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

ChatClientSocket.Socket.SendText(WriteTextk);

[Churc]

Opa

Talvez:

WriteTextk := '<' + edScreenName.Text + '>' +
'<' + '"Server"' + '>' +
'<' + 'Mensagem' + #13 +  #10 + '>';

abraço

[mariquito]

Opa

Talvez:

WriteTextk := '<' + edScreenName.Text + '>' +
'<' + '"Server"' + '>' +
'<' + 'Mensagem' + #13 +  #10 + '>';

abraço

não deu certo ainda irmão error no edScreenName.Text e no socket

[Churc]

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

[mariquito]

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'

[Churc]

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

[mariquito]

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