Работа с текстовым файлом

akimov_aleks

есть фаил tel.txt в нем записанны номера телефонов формате 45254 45215 86526 как мне переменой T присвоить второй номер тел
8 ответов

akimov_aleks

<script type="text/javascript">
<!--
var t="45215";
alert="t"
//-->
</script>
Или что тебе надо?


akimov_aleks

readln({имя привязанное к файлу с помощью assignfile});
readln({"имя"},T);
readln считывает одну строку и перемещает курсор на начало следующей строки, при не указывании переменной, в которую следует поместить строку, так званный фиктивный вызов, курсор перемещается на начало следующей строки


akimov_aleks

readln({имя привязанное к файлу с помощью assignfile});
readln({"имя"},T)
можно поподробнее я новичек и не могу понятьvar F: TextFile; T: string; I:Integer;begin I:=2; // какую строчку считать и присвоить переменной T AssignFile(F, 'tel.txt'); Reset(F); t:=????? а тут что не могу понять end.


akimov_aleks

var
F: TextFile;
T: string;
I:Integer;
 
begin
AssignFile(F, 'tel.txt');
Reset(F);
readln(f,t);
readln(f,t);
wtiteln(t);
end.


akimov_aleks

совторым понятно а если 53 или 153 не писать же readln(f,t); readln(f,t); wtiteln(t);


akimov_aleks

да хоть так
var
F: TextFile;
T: string;
I:Integer;
begin
readln(s);
AssignFile(F, 'tel.txt');
Reset(F);
for i:=1 to s do
readln(f,t);
wtiteln(t);
end.


akimov_aleks

долго мучился но вот оптимальный вариант
procedure TForm1.Button1Click(Sender: TObject);
var
params,responseres:tstringlist;
i:Integer;
TelList:tstringlist;
t:string;
begin
i:=2;
TelList:=tstringlist.Create;
TelList.LoadFromFile('C:\file.txt');
params:=TStringList.Create;
responseres:=TStringList.Create;
t:=Passlist.Strings[i];
 
end;
end.


akimov_aleks

а что там собственно мучатся то?