Каким образом провести такие работы с текстовыми файлами

[kakawkin]

Надо составить список в виде: логин;пароль
Имеются 2-а текстовых файла: один с логинами, а другой собственно с паролями.

[MaxNik2009]

загрузи данные из файлов в стринглисты, и потом построчно объединяй.

[bitSoft]

да очень просто :

var
 F1,F2 : TStringList;
 NamePass : string;
 iCount : integer;
begin
 F1 : TStringList.create;
 F2 : TStringList.Create;
 F1.LoadFromFile('Names.txt');
 F2.LoadFromFile('Passwords.txt');
 for iCount := 0 to F1.Count-1 do
 begin
  NamePass := F1.Strings[iCount] + ';' + F2.Strings[iCount];
  ShowMessage(NamePass);
 end;
end;

но это работает есль Логин и Пароль в фаиле в нармалином порядке..те типа так :

Names.txt Passwords.txt
login1 password1
login2 password2
login3 password3
login4 password4
.................

[kakawkin]

а как за место showmessage сделать чтоб просто записывал все полученное в тектовый фаил ?

[kakawkin]

как-то типа:
append(f,'login.txt);
rewrite(f);
Eof(f);
write(NamePass);


Так ???

[DoDge_VipeR]

var f:textfile;
...
assignfile(f,'имя файла');
rewrite(f);
for iCount := 0 to F1.Count-1 do
 begin
  NamePass := F1.Strings[iCount] + ';' + F2.Strings[iCount];writeln(f,NamePass);
end;closefile(f);

а вот это

как-то типа:
append(f,'login.txt);
rewrite(f);
Eof(f);
write(NamePass);


Так ???

спрячь и никому не показывай

[Кинельски]

Пишешь
var
i:textfile;
begin assignfile(i,'cab.txt');
reset(i);
readln(i,names);
close(i);
это все в цикл делаешь и оно будет записывать.

[Пепел Феникса]

вообще то, ему append скорее нужен а не rewrite/reset.