funcion
 

hola amigos..
Soy nuevo en esto de delphi.. y bueno queria saber como realizar el siguiente ejercicio en una funcion
de dada una cantidad,, mostrar el primer y ultimo digito de la cantidad, ambos resultados mostrados dentro de un edit.text

gracias..

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración :)
Para otra ocasión no olvides poner un título descriptivo a tu pregunta.

Y en cuanto a tu duda, como habrás leído en nuestra guía de estilo, no nos gusta dar un código para que hagas un "copia-pega", muestra interés en aprender, pon tu código, intenta hacer algo y te ayudaremos.
Saludos.

Hola. ¿Sabes algo de Delphi o de programación?, ¿Que versión usas?, ¿Que tanto haz hecho?, ¿Que errores haz encontrado?

Si no tienes muchas bases te recomiendo el libro "La cara oculta de Delphi" y un buen sitio de referencia es Delphi Basics

- Debes crear una función que reciba como parámetro un valor de cantidad (No se si sea entero o flotante, eso depende de tu programa) y retorne una cadena de texto
- Convertir el parámetro de entrada a una cadena de texto
- Copiar el primer caractér
- Copiar el último carcatér
- Retornar la unión resultante de los dos puntos anteriores
- Asignar el resultado de la función a una caja de texto en el formulario

Si tienes dudas, como dice casimiro, acá te ayudaremos.

lo tomaré en cuenta lo de casimiro ,gracias por aclararmelo...
bueno esto es lo que he hecho y mi consulta era de como mostrar el valor de d y a segun el codigo..dentro de un edit.
si alguien podria decirme en que estoy mal o como hacer la estructura...para sacar ambos valores
ete.. uso delphi 2010...

Código Delphi [-]
function primeryúltimodígito(n:integer):integer;
var e,inv,d,a:integer;
begin
  inv:=0;
  e:=n;
while n>0 do
begin
   d:=n mod 10;
    inv:=inv*10+d;
    n:=n div 10;
end;
a:=e mod 10;
result:=
end;
procedure TForm2.N1PRIMERYLTIMODGITO1Click(Sender: TObject);
begin
edit2.text:=
end;

end.

Recuerda poner los tags al código fuente, ejemplo:



Gracias :)

¿cómo retornaria la union resultante de ambos puntos?

- Debes crear una función que reciba como parámetro un valor de cantidad (No se si sea entero o flotante, eso depende de tu programa) y retorne una cadena de texto
- Convertir el parámetro de entrada a una cadena de texto
- Copiar el primer caractér
- Copiar el último carcatér
- Retornar la unión resultante de los dos puntos anteriores
- Asignar el resultado de la función a una caja de texto en el formulario

Hola.
Una opción es que la función devuelva un valor de tipo TPoint.

Saludos :)

Código Delphi [-]
function primeryúltimodígito(n:integer):integer;
var e,inv,d,a:integer;
begin
  inv:=0;
  e:=n;
while n>0 do
begin
   d:=n mod 10;
    inv:=inv*10+d;
    n:=n div 10;
end;
a:=e mod 10;
result:= (d * 10) + a; // Te falta esto
end;

procedure TForm2.N1PRIMERYLTIMODGITO1Click(Sender: TObject);
// Vamos a suponer que tienes un Edit1 donde se teclea el valor numérico
var i: Integer;
begin
  i := StrToInt(Edit1.Text);
  Edit2.Text := IntToSTr(primeryúltimodígito(i));
end;

end.

Espero haberte ayudado
Saludos

Hola.

Ah... había interpretado que buscabas algo como esto,

Código Delphi [-]
function FirstAndLast(num: Integer): TPoint;
begin
  Result.X := num;
  while Result.X >= 10 do
    Result.X := Result.X div 10;
  Result.Y := num mod 10;
end;

pero con muy pocos cambios se puede obtener el resultado como un entero:

Código Delphi [-]
function FirstAndLast(num: Integer): Integer;
begin
  Result := num;
  while Result >= 10 do
    Result := Result div 10;
  Result := num mod 10 + Result * 10;
end;

Saludos :)