[babay89]

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

Let me show you:

Код:

procedure ParseTextFile(const FileName: String; var UserName, UserPass, Server: String);
var
  AStrings: TStrings;
begin
  AStrings:=TStringList.Create;
  try
    AStrings.LoadFromFile(FileName);
    AStrings.Text:=StringReplace(AStrings.Text, ' ', #13#10, [rfReplaceAll, rfIgnoreCase]);
    UserName:=AStrings[0];
    UserPass:=AStrings[1];
    Server:=AStrings[2];
  finally
    AStrings.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  UserName, UserPass, Server: String;
begin
  ParseTextFile('txtfile.txt', UserName, UserPass, Server);
  Edit1.Text:=UserName;
  Edit2.Text:=UserPass;
  Edit3.Text:=Server;
end;

http://data.cod.ru/124709

Самый рабочий код, но у меня цикл который работает по кол-ву строк текстовика. Как засунуть его в цикл for i:=0 to lines.count???

[chainik]

если выбрал это решение то ничего никуда засовыввать не надо.
Как я понял речь о том что в списке много юзеров с их паролями и серверами
В этом случае получится
1-юзер: UserName=Astrings[0]
UserPass=Astrings[1]
Server=Astrings[2]
2-юзер: UserName=Astrings[3]
UserPass=Astrings[4]
Server=Astrings[5]
3-юзер: UserName=Astrings[6]
UserPass=Astrings[7]
Server=Astrings[8]
проще говоря имена и пароли и сервера следуют непрерывным потоком чередуясь

[babay89]

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

если выбрал это решение то ничего никуда засовыввать не надо.
Как я понял речь о том что в списке много юзеров с их паролями и серверами
В этом случае получится
1-юзер: UserName=Astrings[0]
UserPass=Astrings[1]
Server=Astrings[2]
2-юзер: UserName=Astrings[3]
UserPass=Astrings[4]
Server=Astrings[5]
3-юзер: UserName=Astrings[6]
UserPass=Astrings[7]
Server=Astrings[8]
проще говоря имена и пароли и сервера следуют непрерывным потоком чередуясь

правильно. Вот мне нужно загружать это в цикле(там ещё есть есколько десятков строк), но получиться, что разделит на 3 сроки в текстовом файле и цикл выполнится 3 раза, вместо, например, одного.

[NumLock]

Код:

procedure ParseText(const AString: String; var UserName, UserPass, Server: String);
var
  AStrings: TStrings;
begin
  AStrings:=TStringList.Create;
  try
    AStrings.Text:=StringReplace(AString, ' ', #13#10, [rfReplaceAll, rfIgnoreCase]);
    UserName:=AStrings[0];
    UserPass:=AStrings[1];
    Server:=AStrings[2];
  finally
    AStrings.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  AStrings: TStrings;
  i: Integer;
  UserName, UserPass, Server: String;
begin
  AStrings:=TStringList.Create;
  try
    AStrings.LoadFromFile('txtfile.txt');
    for i:=0 to AStrings.Count-1 do
    begin
      ParseText(AStrings[i], UserName, UserPass, Server);
      Edit1.Text:=UserName;
      Edit2.Text:=UserPass;
      Edit3.Text:=Server;
      Application.ProcessMessages;
      Sleep(500);
    end;
  finally
    AStrings.Free;
  end;
end;

http://data.cod.ru/124770

[babay89]

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

Код:

procedure ParseText(const AString: String; var UserName, UserPass, Server: String);
var
  AStrings: TStrings;
begin
  AStrings:=TStringList.Create;
  try
    AStrings.Text:=StringReplace(AString, ' ', #13#10, [rfReplaceAll, rfIgnoreCase]);
    UserName:=AStrings[0];
    UserPass:=AStrings[1];
    Server:=AStrings[2];
  finally
    AStrings.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  AStrings: TStrings;
  i: Integer;
  UserName, UserPass, Server: String;
begin
  AStrings:=TStringList.Create;
  try
    AStrings.LoadFromFile('txtfile.txt');
    for i:=0 to AStrings.Count-1 do
    begin
      ParseText(AStrings[i], UserName, UserPass, Server);
      Edit1.Text:=UserName;
      Edit2.Text:=UserPass;
      Edit3.Text:=Server;
      Application.ProcessMessages;
      Sleep(500);
    end;
  finally
    AStrings.Free;
  end;
end;

http://data.cod.ru/124770

То что надо Спасибо человеку за помощь.