Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.30;
Скачать: CL | DM;

Вниз

помогите пожалуйста считать из типизированного файла записи   Найти похожие ветки 

 
KLOD   (2005-10-08 12:25) [0]

помогите пожалуйста считать из типизированного файла записи
var
fn:file of string[10];
i:integer;
s:string;
begin
s:=edit1.Text;
assignfile(fn,"tel.txt");
reset(fn);
while not eoln do
begin
read(fn,s);
что то не получается говорит типы не совподают


 
Anatoly Podgoretsky ©   (2005-10-08 12:43) [1]

Типы разные - string и string[10]

s:string[10];

а эта строка зачем? s:=edit1.Text;


 
Buss   (2005-10-08 12:48) [2]

И переменная i здесь лишняя. И не ясности в строке while not eoln do


 
Buss   (2005-10-08 12:52) [3]

type
 string10 = string[10];
var
 fn : file of string10;
 s : string10;
begin
 assignfile(fn, "tel.txt");
 reset(fn);
 while not eof(fn) do
 begin
   read(fn, s);
   ...
 end;
 

end;


 
Buss   (2005-10-08 12:53) [4]

Да. И закрыть файл не забудь
CloseFile(fn)



Страницы: 1 вся ветка

Текущий архив: 2005.10.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.042 c
3-1127135003
BaxTMaH
2005-09-19 17:03
2005.10.30
Список доступных серверов в локалке


4-1124778504
officeman
2005-08-23 10:28
2005.10.30
как получить полный путь каталога "Рабочий стол"


6-1120917646
yuran
2005-07-09 18:00
2005.10.30
Как определить рабочие группы во всей локальной сети?


4-1125003411
Nazi
2005-08-26 00:56
2005.10.30
условное объявление функции


14-1128519629
oldman
2005-10-05 17:40
2005.10.30
Иногда бывает так, как не бывает...