Kamikaze
06-07-2005, 22:49:08
Hola a todos foreros y programadores de Delphi.
Tengo un pequeño problema:
Tengo una variable integer y quiero convertirla en otro
apartado de mi programa a string o viceversa.
Pongo el codigo fuente para facilitar las cosas:
Muchas gracias por adelantado!!!:D
Kamikaze.
P.D.:
Variables globales:
var
Cliente_Ogame: TCliente_Ogame;
Posicion:longint;
procedure TCliente_Ogame.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
str : AnsiString;
Cadena:string;
Cadena2:string;
begin
str := Socket.ReceiveText;
memo1.Lines.Add(str);
Cadena:='session=';
Cadena2:='123456789012';
Posicion:=Pos(Cadena,Memo1.Text)+7;
with Memo1 do
begin
SelStart:=Posicion;
SelLength:=Length(Cadena2);
SetFocus;
end;
end;
procedure TCliente_Ogame.Button4Click(Sender: TObject);
begin
ShellExecute(Cliente_Ogame.Handle,nil,Pchar ('http://ogame192.de/game/index.php?session='+ posicion),'','',SW_SHOWNORMAL); //El codigo falla aqui poniendo que integer es incompatible con string.
end;
Tengo un pequeño problema:
Tengo una variable integer y quiero convertirla en otro
apartado de mi programa a string o viceversa.
Pongo el codigo fuente para facilitar las cosas:
Muchas gracias por adelantado!!!:D
Kamikaze.
P.D.:
Variables globales:
var
Cliente_Ogame: TCliente_Ogame;
Posicion:longint;
procedure TCliente_Ogame.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
str : AnsiString;
Cadena:string;
Cadena2:string;
begin
str := Socket.ReceiveText;
memo1.Lines.Add(str);
Cadena:='session=';
Cadena2:='123456789012';
Posicion:=Pos(Cadena,Memo1.Text)+7;
with Memo1 do
begin
SelStart:=Posicion;
SelLength:=Length(Cadena2);
SetFocus;
end;
end;
procedure TCliente_Ogame.Button4Click(Sender: TObject);
begin
ShellExecute(Cliente_Ogame.Handle,nil,Pchar ('http://ogame192.de/game/index.php?session='+ posicion),'','',SW_SHOWNORMAL); //El codigo falla aqui poniendo que integer es incompatible con string.
end;