Estuve buscando por internet como invertir un string.... y encontré el siguiente código
Function String_Reverse(S : String): String;
Var
i : Integer;
Begin
Result := '';
For i := Length(S) DownTo 1 Do
Begin
Result := Result + Copy(S,i,1) ;
End;
End;
Yo soy muy nuevo en delphi, estoy leyendo y aprendiendo....
quisiera saber en qué parte del editor de código puedo introducirlo.
este es mi programa...
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.BitBtn1Click(Sender: TObject);
VAR a,b,e:real;
r:integer;
begin
a:=strtofloat(inputbox('Datos','Introduzca numero A:',''));
b:=strtofloat(inputbox('Datos','Introduzca numero B:',''));
e:=Exp(B*Ln(A));
showmessage('Respuesta:'+' '+floattostr(e));
r:=(trunc(Int(A)) mod 4567);
AQUÍ DEBERÍA IR EL CÁLCULO DEL INVERSO DE 'r'
ShowMessage('Redondear B a las milésimas:'+FormatFloat('"Value = "0.000', b));
end;
end.