Работа с файлами

← →
filez (2007-12-20 16:40) [0]

Работа с файлами.
Как мне описать процедуру которая удаляет из текста
предпоследний елемент

Вот такая программа не работает . Почему ?

program m;
uses
crt;
type
type text = file of char;
var
t: Array of char;
f: text;
i: integer;
begin
assign (f,"1.txt");
rewrite(f);
for i := 1 to length (f) do
t[i]:= t[i-1];
writeln(t);
closefile(f);
readln;
end.

← →
Kolan © (2007-12-20 16:41) [1]

А где прочелся t?

← →
filez (2007-12-20 16:43) [2]

Kolan © (20.12.07 16:41) [1]

не понимаю....

← →
Kolan © (2007-12-20 16:43) [3]

> assign (f,"1.txt");
> rewrite(f);
> for i := 1 to length (f) do
> t[i]:= t[i-1];
> writeln(t);
> closefile(f);
> readln;
> end.

Прокаменть каждую строку.

← →
Kolan © (2007-12-20 16:44) [4]

> t: Array of char;

+ это дин массив. Где задается его размер.

И если это Delphi почему бы не заюзать TStrings.LoadFromFile

← →
filez (2007-12-20 16:45) [5]

> assign (f,"1.txt"); // подключиться к файлу
> rewrite(f); // открыть для перезаписи
> for i := 1 to length (f) do // делать до конца файла
> t[i]:= t[i-1]; // к Т присвоить Т без предпоследнего елемента
> writeln(t); // записать в Т
> closefile(f); / закрыть файл
> readln;
> end.

← →
Dib@zol © (2007-12-20 16:47) [6]

> > rewrite(f); // открыть для перезаписи
> > for i := 1 to length (f) do // делать до конца файла

Сомневаюсь, что после вызова rewrite F будет иметь ненулевую длину, а тем более ту длину которую надо.

← →
Kolan © (2007-12-20 16:48) [7]

> t[i]:= t[i-1]; // к Т присвоить Т без предпоследнего елемента

Ачто в это время в t?

← →
Kolan © (2007-12-20 16:48) [8]

> > for i := 1 to length (f) do // делать до конца файла

Надо юзать Eof

← →
Германн © (2007-12-20 16:49) [9]

> filez (20.12.07 16:45) [5]

А на каком языке это написано?

← →
filez (2007-12-20 16:50) [10]

Kolan © (20.12.07 16:48) [8]

Как мне его за юзать.

Очень нужна помощь мне с этим задание.

← →
Dib@zol © (2007-12-20 16:51) [11]

> А на каком языке это написано?

Однакож, правда! На каком? Динамические массивы Паскаль вроде как не поддерживает, однако прописан вызов CRT... непонятно.

← →
Dib@zol © (2007-12-20 16:53) [12]

И внимание второй вопрос. Обратимся к истории создания данного шедевра. Нафик тебе прога, удаляющая ПРЕДпоследний символ из файла?
ЗЫ А если символ там один?

← →
filez (2007-12-20 16:54) [13]

Dib@zol © (20.12.07 16:51) [11]
> А на каком языке это написано?

Однакож, правда! На каком? Динамические массивы Паскаль вроде как не поддерживает, однако прописан вызов CRT... непонятно.

Какой динамический масив :(
На старшке ТР 7.0 нужно сделать.

← →
filez (2007-12-20 16:54) [14]

процедура которая удаляет из текста
предпоследний елемент.

> filez

> предпоследний елемент

В тексте м.б. всего один "элемент". Какой считать предпоследним ?

> На старшке ТР 7.0 нужно сделать

Какого же ляда в теме фигурирует D6, D7 ?

var
t: Array of char; <- error 92: "[" or "(." expected.

Дурдом какой то.

Работа с файлами Найти похожие ветки