генератор login;pass

[19955991]

Вообщем решил написать генератор списков вида login;pass
В программе 3 режима генерации:
- 1 логин - 1 пароль (RadioButton1)
- 1 логин - список паролей (RadioButton2)
- все логины к каждому паролю (RadioButton3)



Вот код:
procedure TForm1.Button5Click(Sender: TObject);
var
i,i2,s,s2: integer;
r,Text: string;
begin
r:=edit2.Text;
s:=(Mmo1.Lines.Count);
s2:=(Mmo2.Lines.Count);
Text:=Mmo1.Lines.Text;
if rb1.Checked=True then
for i := 0 to Mmo1.Lines.Count-1 do
mmo3.Lines.Add(mmo1.Lines.Strings[i]+r+mmo2.Lines.Strings[i]);

if rb2.Checked=True then
For i:=0 to Mmo1.Lines.Count-1 do
For i2:=0 to s do
mmo3.Lines.add(mmo1.Lines.Strings[i]+r+mmo2.Lines.Strings[i2]);

if rb3.Checked=True then
For i:=0 to s do
For i2:=0 to Mmo2.Lines.Count-1 do
mmo3.Lines.add(mmo1.Lines.Strings[i]+r+mmo2.Lines.Strings[i2]);
end;

Генерация "1 логин- 1 пароль" вроде как бы проходит нормально, но вот с остальными режимами проблема, например во 2 режиме к одному логину подбирается только 5 первых паролей и переходит к следующему логину...а в 3 вообщем почему то в самом конце начинаются пароли без логинов писаться типо ";pass"
Прошу помощи уважаемые форумчане /problem
P.S. Код ужасный, знаю))

И еще, кто знает как удалить пустые строки из memo?

[VeTaL_UA]

procedure TForm1.Button5Click(Sender: TObject);
var
i,i2,s,s2: integer;
r,Text: string;
begin
r:=edit2.Text;
s:=(Mmo1.Lines.Count);
s2:=(Mmo2.Lines.Count);
Text:=Mmo1.Lines.Text;
if rb1.Checked=True then
for i := 0 to Mmo1.Lines.Count-1 do
mmo3.Lines.Add(mmo1.Lines.Strings[i]+r+mmo2.Lines.Strings[i]);

if rb2.Checked=True then
For i:=0 to Mmo1.Lines.Count-1 do
For i2:=0 to s2-1 do
mmo3.Lines.add(mmo1.Lines.Strings[i]+r+mmo2.Lines.Strings[i2]);

if rb3.Checked=True then
For i:=0 to s-1 do
For i2:=0 to Mmo2.Lines.Count-1 do
mmo3.Lines.add(mmo1.Lines.Strings[i]+r+mmo2.Lines.Strings[i2]);
end;
Ошибки исправил, но сам код...ммм...странный... /horror

[[M.G.] KoBaL]

И еще, кто знает как удалить пустые строки из memo?


procedure TForm1.Button1Click(Sender: TObject);
begin

for Memo1.Lines.Count - 1 downto 0 do
begin

if Memo1.Lines.Strings[i] = '' then
begin

Memo1.Lines.Delete(i);

end;

end;

end;