Delphi Генератор Ссылок

[Sascha]

Выкладываю вам Генератор ссылок может кому нужен .



Кидаем на форму 2хEdit, 3хLabel ,SpinEdit,Memo,2хButton,SaveDialog, я же возьму всё из AlphaControls, немного будет красивей. И так начнём.
Нажимаем на Button Запуск и вписываем код:

procedure TForm1.sButton1Click(Sender: TObject);
var
  data: tstrings;
  i: integer;
begin
  data := tstringlist.Create;
  for i := 1 to sSpinEdit1.Value do
  begin
    data.Add('' + Form1.sEdit1.Text + '' + Form1.sEdit2.Text + '' +
      IntToStr(i) + '');
    Form1.sMemo1.Text := data.Text;
  end;
  FreeAndNil(data);
end;

Теперь нам нужно сохранить наш результат, нажимаем Button Сохранить и прописываем код:

procedure TForm1.sButton2Click(Sender: TObject);
begin
  if sSaveDialog1.Execute then
    sMemo1.Lines.SaveToFile(sSaveDialog1.FileName + '.txt');
    ShowMessage('Файл Сохранить как: ' + sSaveDialog1.FileName);
  end;

Запускаем и получаем маленькую программу Генератор ссылок.