[casperock]

У меня есть *.txt файл вида:

login1: pass1
login2: pass2


Подскажите как можно все логины и пароли перевести в два масива, с паролями и логинами по порядку?

[M.A.D.M.A.N.]

как вариант через Copy(s, 1, Pos(':', s) - 1)

[v1s2222]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

type   TLogin = Record     Log, Pas: String;   end;   var   Form1: TForm1;     Mas: Array[1..3] of TLogin;   N: Integer;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var   Str: TStringList;   i: Integer; begin {   Файл должен быть типа:   Логин1:Пароль1   Логин2:Пароль2   ... }   N := 1;   Str := TStringList.Create;   Str.LoadFromFile('myfile.txt');   for i:=0 to Str.Count-1 do begin     Mas[N].Log := Copy(Str.Strings[i], 1, Pos(':', S)-1);     Mas[N].Pas := Copy(Str.Strings[i], Pos(':', S)+1, Length(Str.Strings[i])-Pos(':', S));     inc(N);   end;   Str.Free; // теперь в массиве Mas[i] хранятся логины пароли.

Это не идеальный вариант, но работать будет.
Также возможно разбить логины-пароли:

Код:

1	S := StringReplace(S, ':', #10#13, [rfReplaceAll]);

Тогда пройтись циклом по всем строчкам, в нечетных были бы логины, в четных - пароли.


ЗЫ пока писал уже ответили

[M.A.D.M.A.N.]

@v1s2222 #13#10 лучше заменить на sLineBreak

[casperock]

v1s2222, спасибо. Скажи, а как можно оформить твой код для вставки в программу, а то что то у меня одни ошибки вылазят. Например в роли процедуры.

[v1s2222]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

type   TLogin = Record     Log, Pas: String;   end;   var   Form1: TForm1;     Mas: Array[1..3] of TLogin;   N: Integer;   implementation   {$R *.dfm}   procedure LoadLogins; var   Str: TStringList;   i: Integer; begin {   Файл должен быть типа:   Логин1:Пароль1   Логин2:Пароль2   ... }   N := 1;   Str := TStringList.Create;   Str.LoadFromFile('C:\1.txt');   for i:=0 to Str.Count-1 do begin     Mas[N].Log := Copy(Str.Strings[i], 1, Pos(':', Str.Strings[i])-1);     Mas[N].Pas := Copy(Str.Strings[i], Pos(':', Str.Strings[i])+1, Length(Str.Strings[i])-Pos(':', Str.Strings[i]));     inc(N);   end;   Str.Free; end;   procedure TForm1.Button1Click(Sender: TObject); begin   LoadLogins;   showmessage('Первый логин: ' + mas[1].Log + '; 1 Пароль: ' + mas[1].Pas); end;

[casperock]

v1s2222, большое спасибо!)) Работает))

А как можно сделать так чтоб можно было переводить динамическое количество строк в файле, ну соответственно и узнать номер последней записи в массиве?

[casperock]

Поможет кто?))

[lmikle]

Сообщение от casperock

Поможет кто?))

описание динамического массива:

Код:

1 2	var   A : Array Of String;

Функции работы с дин. массивами:
SetLength() - утсановка длинны массива;
Low() - индекс нижнего элемента;
High() - индекс верхнего элемента.