Concatenar String con Edit

[tazzmk]

Ver la interfaz

Lo que haces es simple, se ingresa un nombre y un apellido, al presionar aceptar este muestra el nombre y el apellido ingresado en el Edit3

El boton copiar solo copia el contenido del Edit3, al portapepeles.

Tengo un pequeño problema con la concatenacion

Boton aceptar

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
n1,n2,resultado:variant;
begin
n1:=IntToStr(Edit1.text);
n2:=IntToStr(Edit2.text);
Edit3.text:=IntToStr(n1)+''+IntToStr(n2);
end;

Me sale con error este codigo

Boton copiar al portapeles

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
Edit3.text:=Clipboard;
end;

[[egostar]]

Podrias especificar que error te da?

Salud OS

[[Caral]]

Hola
Aparte de lo que dice mi amigo Egostar, es obvio que el nombre y el apellido no son integer, salvo que sean numeros.
Lo que intentas hacer es mucho mas facil y no hay que declarar ninguna variable:
Asi:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.text:= Edit1.text + ' ' + Edit2.text;
end;

Lo que pretendes es unir los dos pero suponiendo que son integer cuando son String.
Bueno, me parece a mi.
Saludos

[[egostar]]

Vamos por partes

1. Ya copiaste lo que quieres al clipboard?
2. El error que te da es que desconoce esa función
3. El error es de tipo de datos?
4. Que es lo que quieres copiar al portapapeles, porque lo que estras haciendo es copir del portapapeles al Edit3

Contestanos esto y te damos la solución

Salud OS

[tazzmk]

disculpa la demora

Caral logro concatenar estos dos Edit

El boton copiar, solo debe copiar el contenido del Edit3

Ejemplo: Yo ingreso un nombre al Edit1 (Club) y un apellido al Edit2 (Delphi), presiono aceptar y se carga al Edit3 (Club Delphi), ahora presiono el Boton copiar el cual se guardara en el portapeles.

independientemente abro un block de notas o algo semejante y pego, lo que se pego es eso "Club Delphi"

Eso, saludos

[[egostar]]

Empezado por tazzmk

disculpa la demora

Caral logro concatenar estos dos Edit

El boton copiar, solo debe copiar el contenido del Edit3

Ejemplo: Yo ingreso un nombre al Edit1 (Club) y un apellido al Edit2 (Delphi), presiono aceptar y se carga al Edit3 (Club Delphi), ahora presiono el Boton copiar el cual se guardara en el portapeles.

independientemente abro un block de notas o algo semejante y pego, lo que se pego es eso "Club Delphi"

Eso, saludos

Debes de usar esto en el botón de copiar

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  Clipboard.AsText := Edit3.Text;
end;

Para poder hacer esto debes de incluir Clipbrd en los uses de tu forma.

Salud OS

[tazzmk]

muchas gracias egostar !! eres muy preciso

buscando en el foro me tope con esto:

CutToClipboard - Cortar
CopyToClipboard - Copiar
PasteFromClipboard - Pegar
Clear - Eliminar
Undo - Deshacer

[[egostar]]

Empezado por tazzmk

muchas gracias egostar !! eres muy preciso

buscando en el foro me tope con esto:

CutToClipboard - Cortar
CopyToClipboard - Copiar
PasteFromClipboard - Pegar
Clear - Eliminar
Undo - Deshacer

Asi es, para usar esas funciones requieres de realizar lo siguiente:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Edit3.SelectAll;
  Edit3.CopyToClipboard;
end;

Salud OS