![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
||||
|
||||
|
Вот у меня есть чекер аккаунтов, решил его значительно изменить.
Раньше работа с аккаунтами была через мемо, но вот я захотел сделать через файл, как будет выглядеть? Вот код, что бы копировало через мемо, помогите изменить для работы с тхт файлом. S:=Form1.sMemo1.Lines[tek]; login:=Copy(S, 1, Pos(':', S) - 1); password:=Copy(S, Pos(':', S) + 1, Length(S)); |
|
#2
|
||||
|
||||
|
Цитата:
Код:
sMemo1.Lines.LoadFromFile('Имя файла'); // Загрузить из текстового файла
sMemo1.Lines.SaveToFile('Имя файла'); // Сохранить в текстовый файлКод:
var
SL: TStringList;
S: String;
begin
SL := TStringList.Create;
try
SL.LoadFromFile('Имя файла');
S := SL[tek];
login := ...
finally
SL.Free;
end;
end; |
|
#3
|
||||
|
||||
|
TStringList и использую
|
|
#4
|
||||
|
||||
|
Цитата:
|
|
#5
|
||||
|
||||
|
Цитата:
|
|
#6
|
||||
|
||||
|
А как считывать количество строк, находящихся в файле?
|
|
#7
|
||||
|
||||
|
Цитата:
У TMemo.Lines тоже такое свойство есть. |