[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???