[aitorqrv]

Hola a todos, a mi cuando programo en PHP me gusta ordenar las funciones todas juntas o ordenarlas por tipos diferentes en archivos separarados. Esto lo hago para poder depurar el programa mas cacilmente en el futuro, pero en delphi no se como se hace.

Por ejemplo me gustaria meter esta función en Unit2 y poder llamarla y utilizarla desde Unit1:

Código Delphi [-]
function ReverseString( s : string ) : string;
var
  i  : integer;
  s2 : string;
begin
  s2 := '';
  for i := 1 to Length( s ) do
    s2 := s[ i ] + s2;
  Result := s2;
end;

Yo he intentado hacerlo asi, pero no funciona:

Unit1.pas

Código Delphi [-]
{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

uses
  unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
   form1.edit1.Text := ReverseString(form1.edit1.Text);
end;

end.

Unit2.pas

Código Delphi [-]
unit Unit2;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

implementation

function ReverseString( s : string ) : string;
var
  i  : integer;
  s2 : string;
begin
  s2 := '';
  for i := 1 to Length( s ) do
    s2 := s[ i ] + s2;
  Result := s2;
end;

end.

Gracias gracias.