Fórum Duvida FACIL... É URGENTE ! #169399
14/07/2003
0
procedure TForm1.SpeedButton13Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(#23+Edit3.Text+´: ´+edit5.Text+24);
Edit5.Clear;
e na outra
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
if pos(23,txt) and pos(24,txt)<> 0 then
Memo1.Lines.Add(copy(txt,pos(23,txt)+2,pos(24,txt)-3));
Com estas funções qdo digito no edit ele não aceita todas as palavras... tipow, se eu colocar ´teste´ ele não escreve no memo, agora se eu digitar ´oi´ ele aceita, mas se eu digitar ´sgaGH´ ELE NÃO ACEITA. Como fazer para ele aceitar todas letras ?
AGRADECIDO,
RODRIGO!
begin
ClientSocket1.Socket.SendText(#23+Edit3.Text+´: ´+edit5.Text+24);
Edit5.Clear;
e na outra
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
if pos(23,txt) and pos(24,txt)<> 0 then
Memo1.Lines.Add(copy(txt,pos(23,txt)+2,pos(24,txt)-3));
Com estas funções qdo digito no edit ele não aceita todas as palavras... tipow, se eu colocar ´teste´ ele não escreve no memo, agora se eu digitar ´oi´ ele aceita, mas se eu digitar ´sgaGH´ ELE NÃO ACEITA. Como fazer para ele aceitar todas letras ?
AGRADECIDO,
RODRIGO!
Ropesca
Curtir tópico
+ 0
Responder
Posts
15/07/2003
4_olho
Estou desconfiado deste pos(#23,txt) e pos(24,txt). Nunca usei deste modo e não sei se funciona. Como o 2 aparece em todo lugar, pode suprimi-lo.
Outra dica é verificar o valor destes 2 pos que usou, para se certificar que está cortando o pedaço correto.
Além disso, eu resumiria a função copy para :
copy(txt,2,lenght(txt)-2)); Por quê ? Simples, pois seu TXT = 2 caracteres de início + texto + 2 caracateres de fim
Outra dica é verificar o valor destes 2 pos que usou, para se certificar que está cortando o pedaço correto.
Além disso, eu resumiria a função copy para :
copy(txt,2,lenght(txt)-2)); Por quê ? Simples, pois seu TXT = 2 caracteres de início + texto + 2 caracateres de fim
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)