Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Pasar de string a integer o viceversa. ¿Es posible? (https://www.clubdelphi.com/foros/showthread.php?t=23109)

Kamikaze 06-07-2005 22:49:08

Pasar de string a integer o viceversa. ¿Es posible?
 
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.:

Código PHP:

[color=black]Variables globales:[/color]
[
color=black]var
  
Cliente_OgameTCliente_Ogame;
  
Posicion:longint;[/color]


[
color=black]procedure TCliente_Ogame.ClientSocket1Read(SenderTObject;
  
SocketTCustomWinSocket);[/color]
[
color=black]var
str :  AnsiString;[/color]
[
color=black]   Cadena:string;
   
Cadena2:string;[/color]
[
color=black]begin[/color]
[
color=black]   str := Socket.ReceiveText;
   
memo1.Lines.Add(str);[/color]
[
color=black]    Cadena:='session=';
 
Cadena2:='123456789012';[/color]
[
color=blackPosicion:=Pos(Cadena,Memo1.Text)+7;[/color]

[
color=blackwith Memo1 do
 
begin
   SelStart
:=Posicion;
   
SelLength:=Length(Cadena2);
   
SetFocus;
 
end;
end;
[/
color]

[
color=black]procedure TCliente_Ogame.Button4Click(SenderTObject);
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.[/color]
[color=black]end;[/color]

[
color=black][/color


marcoszorrilla 06-07-2005 22:51:54

Precisamente hoy mismo se ha tocado el tema:
IntToStr/StrToInt

Un Saludo.

Delphius 07-07-2005 08:02:59

algo mas... por si ayudo en algo
 
Cita:

Empezado por marcoszorrilla
IntToStr/StrToInt

Creo que las funciones hablan por si mismas pero bueno, no está de mas un ejemplo:
Código Delphi [-]
Varstring := IntToStr(123);
Varinteger := StrToInt('456');
De todas maneras lee un poco de la ayuda sobre estas funciones y otras similares.

Saludos,

Kamikaze 07-07-2005 15:37:48

:D Muchas Gracias!!!!:D


P.D.:Marcoszorrilla dijo que se habia tocado ya, he buscado con
el buscador de temas de los foros y no me aparece.....

BlueSteel 07-07-2005 15:38:34

Hola Kamikazeveo que la cadena que quieres convertir tiene 12 digitos..

Cadena2:='123456789012'

el Integer solo hacepta hasta 10 dígitos...

Integer -2147483648..2147483647 signed 32-bit

puede que por ahí tengas problemas...


Kamikaze 07-07-2005 15:44:57

Gracias por el consejo BlueSteel.:)

Lo tomaré en cuenta.;)


La franja horaria es GMT +2. Ahora son las 09:18:20.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi