-=ShoN=-
10.06.2011, 10:15
У меня такстовик с таким содержанием
ник пароль
ник пароль
ник пароль
и т.д.
надо чтобы ник добавлялся в edit1
а пароль в edit2
как реализовать, хелп)
разделители меж ником и паролем пробелы.....
doctor_flasher
10.06.2011, 14:31
берешь n строку файла, читаешь все до разделителя (лучше используй какой-нибудь знак вместо пробелов. например: |) - это ник. Читаешь все от разделителя до конца строки - это пароль.
В общем, на объяснения всем насрать да. Вот код:
procedure TForm1.Button1Click(Sender: TObject);
var
lines: TStringList;
begin
lines := TSTringList.Create();
lines.LoadFromFile('test.txt');
Edit1.Text := copy(lines[1], 0, pos('|', lines[1]) - 1);
Edit2.Text := copy(lines[1], pos('|', lines[1]) + 1, length(lines[1]));
lines.Free();
end;
Надо - стучи в аську: 5пять30пять8742