• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Сonnect logins and passwords

Lomanu4 Оффлайн

Lomanu4

Команда форума
Администратор
Сообщения
1,164
Симпатии
222
Баллы
155
VK
To begin with we throw in the form of 3 Memo, 4 buttons, OpenDialog and SaveDialog.
Код:
begin
If OpenDialog1.Execute then // Open the file selection window
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName); // After selecting the file in the ship Memo1
end;
end;
Button "Load passwords" all the same one for Memo2:
Код:
begin
If OpenDialog1.Execute then
begin
Memo2.Lines.LoadFromFile(OpenDialog1.FileName); // After selecting the file in the ship Memo2
end;
end;
We now turn to the actual primary key in our code "glue":
Код:
var
i,s: integer; // Declare two numeric variables for the cycle.
begin
for i := 0 to Memo1.Lines.Count -1 do
begin // The last line is empty, so it is "-1"
for s := 0 to Memo2.Lines.Count -1 do
begin // Here we use nested loops
Memo3.Lines.Add(Memo1.Lines.Strings + ':' + Memo2.Lines.Strings); // connecting
end;
end;
end;
Well, the last button to save:
Код:
begin
if SaveDialog1.Execute then
begin// Open the window to select where to save the file
Memo3.Lines.SaveToFile(SaveDialog1.FileName); // After you select to save the contents Memo3...
end;
end;
 
Последнее редактирование:
Вверх Снизу