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

Вниз

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

 
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]

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


 
Сергей М. ©   (2007-12-20 16:58) [15]


> filez



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


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


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


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


 
Dib@zol ©   (2007-12-20 17:00) [16]

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


 
Anatoly Podgoretsky ©   (2007-12-20 18:12) [17]

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



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

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

Наверх




Память: 0.47 MB
Время: 0.044 c
15-1197918092
Eraser
2007-12-17 22:01
2008.01.20
Цифровая подпись для exe и dll модулей


15-1197374566
PEAKTOP
2007-12-11 15:02
2008.01.20
Вертикальная совместимость - Ваше мнение


15-1197830729
Lip
2007-12-16 21:45
2008.01.20
Ряд Тэйлора


11-1182610524
=BuckLr=
2007-06-23 18:55
2008.01.20
OnChar


2-1197984104
Darvin
2007-12-18 16:21
2008.01.20
Диск, на котором лежит запущенная программа





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский