Incompatible types: 'Integer' and 'String'

Question

Salut a tous, Je commence je suis tous nouveau je scriptais le VB6 avant alors sa m'aide un peu je me fait un floodeur pour serveur ircX et il y a un bugg je ne sais pas comment faire voici mon code :

procedure TForm1.Button1Click(Sender: TObject);
   var
        Ip : String;
        Port : String;
begin
  if sock.Connected then
begin
Ip := TxtServ.Text;
Port := TxtPort.Text;
sock.Host := Ip;
sock.Port := Port;
sock.Connect;
end;
end;

Bon quand j'essaye d'ouvrire avec delphi sa marque en bas :
[Error] Unit1.pas(44): Incompatible types: 'Integer' and 'String'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

J'ai essayer de mettre ma variable Integer mais sa fuck a une autre place quelqu'un aurais une id&#233;&#233;e ?

SkrypterZ

jlen100 · Answer

salut,

port &#233;tant un num&#233;ro il suffit simplement de le d&#233;clar&#233; en integer:

procedure TForm1.Button1Click(Sender: TObject);
   var
        Ip : String;
        Port : Integer;
begin
  if sock.Connected then
begin
Ip := TxtServ.Text;
Port := TxtPort.Text;
sock.Host := Ip;
sock.Port := Port;
sock.Connect;
end;
end;

bonne prog

@+

jlen

neodelphi · Answer

et aussi Port := StrToInt(TxtPort.Text)

neodelphi

jlen100 · Answer

oui j'avais oubli&#233; la conversion!!

le compilateur ne devrait pas trop appr&#233;cier l'affectation:

Port := TxtPort.Text;(type incompatible integer et string)

@+

jlen

benalioua1975 · Answer

si vous trouver ce probleme dans une ligne

i:=t
ou i est integer et t un string vous pouver faire une conversion
par strtoint ou inttostr, dans la rubrique d'aide tapez strtoint puis voir aussi
exemple 
 i:=strtoint(t)
 t:=inttostr(i)
bonne chance

f0xi · Answer

on essaye de ne pas utiliser de variables locale quand ce n'est pas necessaire... const PortParDefaut : integer = 7001; procedure TForm1.Button1Click(Sender: TObject); begin with Sock do begin if Connected then begin Host := TxtServ.Text; Port := StrToIntDef(TxtPort.Text,PortParDefaut); Connect; end; end; end;

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

Incompatible types: 'Integer' and 'String'

5 réponses

Votre réponse

Discussions similaires