Очень нужно запустить код delphi

[Const-n]

Первый раз вижу делфи
Собственно есть фрагмент кода

function srav(s1,s2:string) : integer;
var
i, k1, k2, kop : integer;
sl1,sl2:string;
begin
kop:=0;
 k1 := length(s1);
 k2 := length(s2);

 if k1 = k2 then
 begin
    for i:=1 to k1 do
    begin
      sl1 := copy(s1,i,1);
      sl2 := copy(s2,i,1);
      if sl2 = sl1 then
      else kop := kop + 1;
    end;
 result := kop;
 end else result := 2;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
i, ii, j, gde :integer;
s1, s2, sl1, sl2, dob1, dob2 :string;
begin
memo2.Text := memo1.Text;
gde := 0;
ii := 1;
 for i:=0 to memo1.Lines.Count - 1 do
 begin
   s1 := memo1.Lines[i];
   for j:=0 to memo1.Lines.Count - 1 do
   begin
     if i <> j then
     begin
     s2 := memo1.Lines[j];
     if srav(s1,s2) = 1 then
     begin
     {----------------------}
     repeat
         sl1 := copy(s1,ii,1);
         sl2 := copy(s2,ii,1);
         if sl2 = sl1 then
         else gde := ii;
         ii := ii + 1;
      until gde > 0;
      ii := 1;
      dob1 := copy(s1,1,gde - 1) + '-' + copy(s1,gde + 1, length(s1) - gde);
      dob2 := copy(s2,1,gde - 1) + '-' + copy(s2,gde + 1, length(s2) - gde);

      memo2.Lines[i] := dob1;

      memo2.Lines[j] := dob2;
      gde := 0;
     {----------------------}
        end;
     end;
   end;
 end;

end;

Есть delphi7
Как в нем запустить саму программу, как должен выглядить полный код? Спасибо.

[danekne]

Как минимум нужно создать форму и на ней разместить кнопку и 2 поля memo. И на них события указанные повесить

[Noor]

1.Создаем форму ...
File - New - Form
2.Размещаем на форме 3 компонента
Кнопка (Button1) и 2 Поля (Memо1,Memo2) - вкладка Standard
3.Вот весь код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
// ------------
function srav(s1,s2:string) : integer;
var
i, k1, k2, kop : integer;
sl1,sl2:string;
begin
kop:=0;
 k1 := length(s1);
 k2 := length(s2);

 if k1 = k2 then
 begin
    for i:=1 to k1 do
    begin
      sl1 := copy(s1,i,1);
      sl2 := copy(s2,i,1);
      if sl2 = sl1 then
      else kop := kop + 1;
    end;
 result := kop;
 end else result := 2;

end;
//---------------
procedure TForm1.Button1Click(Sender: TObject);
var
i, ii, j, gde :integer;
s1, s2, sl1, sl2, dob1, dob2 :string;
begin
memo2.Text := memo1.Text;
gde := 0;
ii := 1;
 for i:=0 to memo1.Lines.Count - 1 do
 begin
   s1 := memo1.Lines[i];
   for j:=0 to memo1.Lines.Count - 1 do
   begin
     if i <> j then
     begin
     s2 := memo1.Lines[j];
     if srav(s1,s2) = 1 then
     begin
     {----------------------}
     repeat
         sl1 := copy(s1,ii,1);
         sl2 := copy(s2,ii,1);
         if sl2 = sl1 then
         else gde := ii;
         ii := ii + 1;
      until gde > 0;
      ii := 1;
      dob1 := copy(s1,1,gde - 1) + '-' + copy(s1,gde + 1, length(s1) - gde);
      dob2 := copy(s2,1,gde - 1) + '-' + copy(s2,gde + 1, length(s2) - gde);

      memo2.Lines[i] := dob1;

      memo2.Lines[j] := dob2;
      gde := 0;
     {----------------------}
        end;
     end;
   end;
 end;
 end;
end.

[Const-n]

Все сделал как вы сказали программа компилируется без ошибок но при нажатии на (Button1) ничего не происходит ((( хотя предполагалось это http://orencode.info/forum/showthread.php?t=2755&page=2
не могли бы вы собрать exeшник?

[Noor]

Вот исходник и готовый ехе