Форум: "Начинающим";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];
Внизпомогите пожалуйста считать из типизированного файла записи Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.051 c