[DeOne]

Вот у меня есть чекер аккаунтов, решил его значительно изменить.

Раньше работа с аккаунтами была через мемо, но вот я захотел сделать через файл, как будет выглядеть?

Вот код, что бы копировало через мемо, помогите изменить для работы с тхт файлом.

S:=Form1.sMemo1.Lines[tek];
login:=Copy(S, 1, Pos(':', S) - 1);
password:=Copy(S, Pos(':', S) + 1, Length(S));

[poli-smen]

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

Вот у меня есть чекер аккаунтов, решил его значительно изменить.

Раньше работа с аккаунтами была через мемо, но вот я захотел сделать через файл, как будет выглядеть?

Во-первых TMemo умеет загружать/сохранять текстовые файлы:

Код:

  sMemo1.Lines.LoadFromFile('Имя файла'); // Загрузить из текстового файла
  sMemo1.Lines.SaveToFile('Имя файла'); // Сохранить в текстовый файл

Во-вторых для работы с текстовыми файлами лучше использовать TStringList, а не TMemo:

Код:

var
  SL: TStringList;
  S: String;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile('Имя файла');
    S := SL[tek];
    login := ...
  finally
    SL.Free;
  end;
end;

[DeOne]

TStringList и использую

[poli-smen]

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

TStringList и использую

То есть проблема решена?

[DeOne]

Сообщение от poli-smen

То есть проблема решена?

Да. Спасибо.

[DeOne]

А как считывать количество строк, находящихся в файле?

[poli-smen]

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

А как считывать количество строк, находящихся в файле?

Если ты загрузил текстовый файл в TStringList, то у него есть свойство Count.
У TMemo.Lines тоже такое свойство есть.

[DeOne]

sLabel2.Caption:=IntToStr(a.count);

Однако не вылетает ошибка, делаю через компонент FileNameEdit

[poli-smen]

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

sLabel2.Caption:=IntToStr(a.count);

Однако не вылетает ошибка, делаю через компонент FileNameEdit

А почему ошибка должна вылетать?

[DeOne]

Знать бы мне

В какое событие добавлять надо?
Я добавлял в OnChange, ну и потом по клику попробовал, в обоих случаях ошибка

[poli-smen]

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

Знать бы мне

В какое событие добавлять надо?
Я добавлял в OnChange, ну и потом по клику попробовал, в обоих случаях ошибка

Делай правильно и ошибка не будет вылетать.

[DeOne]

Ой, ошибся, извиняюсь.

sLabel2.Caption:=IntToStr(a.count); Однако вылетает ошибка, делаю через компонент FileNameEdit

Так вроде все правильно

[poli-smen]

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

Ой, ошибся, извиняюсь.

sLabel2.Caption:=IntToStr(a.count); Однако вылетает ошибка, делаю через компонент FileNameEdit

Так вроде все правильно

Если всё правильно, то ошибки не должны вылетать.

[DeOne]

Возможно в FileNameEdit по другому делается?

Ошибка не в компиляторе, а при нажатии на кнопку загрузить файл

[poli-smen]

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

Возможно в FileNameEdit по другому делается?

FileNameEdit не умеет считывать количество строк в текстовом файле.

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

Ошибка не в компиляторе, а при нажатии на кнопку загрузить файл

Значит ошибку следует искать в обработчике нажатия этой кнопки.