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 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
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.