добавление записи в файл

← →
Dot (2006-01-18 12:40) [0]

Помогите студенту =)

значит код.. паскаль (ну можно и дельфи)
type Ts = record a1: string[20]; a2: word; end; var FF: File of Ts; SS: Ts; begin assignfile(FF, "1.dat"); Rewrite(FF); for i:= 1 to 10 do {добавим 10 записей} begin writeln("Введите запись №",i,"a1"); readln(SS.a1); writeln("Введите запись №",i,"a2"); readln(SS.a2); end; READLN(FF, SS); end;

так вот я хз прально тут или нет.. за сим и спрашиваю.. но главное.
как осуществить поиск по этим записям..
вот у меня их 10... а
как мне вывести запись №3 на экран к примеру? это главный вопрос! (помогите кодом.. если можно полностью.. обьявление записи и вывод определенной на экран)

← →
Ega23 © (2006-01-18 12:49) [1]

Seek + F1

← →
Dot (2006-01-18 12:55) [2]

большое спасибо..
можно все же код.
сидеть со словарем -аа ангийской справкой тоже никак не катит.
если нельзя.. то воздержитель от флейма плз

← →
Ega23 © (2006-01-18 12:58) [3]

> сидеть со словарем -аа ангийской справкой тоже никак не
> катит.

Меняй профессию.

← →
PZ (2006-01-18 14:02) [4]

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type Ts = record
a1: string[20];
a2: word;
end;

var
FF: File of Ts;
SS: Ts;
I : Integer;

begin
{ TODO -oUser -cConsole Main : Insert code here }

assignfile(FF, "1.dat");
Rewrite(FF);

for i:= 1 to 10 do {добавим 10 записей}
begin

writeln("‚ўҐ¤ЁвҐ § ЇЁбм ь",i," a1");
readln(SS.a1);
writeln("‚ўҐ¤ЁвҐ § ЇЁбм ь",i," a2");
readln(SS.a2);
Write(FF, SS);
end;

CloseFile(FF);

// READLN(FF, SS);

writeln;
writeln;
assignfile(FF, "1.dat");
Reset(FF);
Seek(FF, 2); // Получить запись 3
Read(FF, SS);
Writeln(SS.a1);
Writeln(SS.a2);
CloseFile(FF);
Readln;
end.

← →
Игорь Шевченко © (2006-01-18 14:05) [5]

Халявщики маст дай

← →
Dot (2006-01-18 15:29) [6]

Значит вот во многом разобрался но есть проблема..
итак записываю запись в файл
type TSupply = record fName: array[1..100] of string[30]; fCount: array[1..100] of integer; fPrice: array[1..100] of integer; end; .... .... repeat writeln("Zapis ",i); writeln("vvedite naimenovanie tovara"); readln(Supply.fName[i]); writeln("vvedite kol-vo tovara"); readln(Supply.fCount[i]); writeln("vvedite cenu tovara"); readln(Supply.fPrice[i]); writeln("Dlya exita vvedite . i najmite Enter"); readln(m); if m = "." then count_l:=true; inc(i); until count_l = true;

нормально работает... при считывании тоже замечательно..
теперь хочу Добавить в файл еще запись
assign(sup_file,filename); rewrite(sup_file); seek(sup_file,SizeOf(Supply)); writeln("Vvedite dannie v file"); i:=1; repeat writeln("Zapis ",i); writeln("vvedite naimenovanie tovara"); readln(Supply.fName[i]); writeln("vvedite kol-vo tovara"); readln(Supply.fCount[i]); writeln("vvedite cenu tovara"); readln(Supply.fPrice[i]); writeln("Dlya exita vvedite . i najmite Enter"); readln(m); if m = "." then count_l:=true; inc(i); until count_l = true; write(sup_file,Supply); Close(sup_file);
и получаю на выходе пустой файл.. как это объяснить? и как найти выход из сложившиейся ситуации..

← →
Ega23 © (2006-01-18 15:31) [7]

> rewrite(sup_file);

Читай про Reset, Rewrite и Append

← →
Dot (2006-01-18 15:38) [8]

читай про это читай про то...
пляха муха я на форум обращаюсь за помощью не для того чтобы мне говороили про что читать.
не халявщиков а флеймеров убивать надо.
Насчет смены профессии извините у меня профессия с компами вообще не свзана а на кой хрен нам ввели информатику в универе на ТГВ я вообще не знаю, так что извините я паскаль первый раз в жизни увидел только недавно и надо сдавать эту шнягу. итак в обнимку с книгой сижу уже..
так что прошу искренне тому кто будет это читать.. если не можешь помочь конкретно указав где ошибка и как ее исправить то воздержитесь от комментариев.

Reset(F) - чтение файла
Rewrite(F) - если файла нет, то создает, если есть, то очищает его
Append(F) - добавление записи.

Удалено модератором

← →
Dot (2006-01-18 15:55) [11]

Удалено модератором

http://www.ln.ua/~openxs/articles/smart-questions-ru.html

Читать до полного и окончательного просветления.

добавление записи в файл Найти похожие ветки