Удалить из файла все отрицательные компоненты(Delphi)

[tane]

Здравствуйте,господа!
Учу самостоятельно Delphi вторую неделю.Нужно решить задание.
Организовать файл целых чисел из N компонент. Удалить из файла все отрицательные компоненты. Вывести содержимое файла до и после обработки.

Вот запись у файл чисел,но вместо чисел - иероглифы.

var f: file of integer; i, j, k, m: integer;
begin
 
  assignfile(f,'c:\file.txt');
  rewrite(f);
  for i:=1 to 15 do begin
    k := random(5)-2;
    write(f, k)
  end;
  CloseFile(f);

1.Какой создать файл(txt...) ?
2. Как удалить из файла все отрицательные компоненты?
3.Как и куда вывести содержимое файла до и после обработки?
Помогите сделать.

[doktor255]

Сообщение от tane

1.Какой создать файл(txt...) ?

В гугле этот ответ ищется за 10 секунд

Сообщение от tane

2. Как удалить из файла все отрицательные компоненты?

В файле не бывает компонентов.

Сообщение от tane

3.Как и куда вывести содержимое файла до и после обработки?
Помогите сделать.

Куда выводить, зависит от того, что ты хочешь увидеть. Варианты. ListBox, Memo, RichEdit. Выбирай. Ну а как выводить, зависит от того, куда ты будешь выводить. В основном все контролы для загрузки документов используют функцию LoadFromFile.

По поводу кода не знаю что ты имел в виду под File of Integer, Если цель стояла забить текстовик рандомными числами, то вот исправленный код.

var f: TextFile;
i, k: integer;
begin
  AssignFile(f,'c:\file.txt');
  Rewrite(f);
  for i:=1 to 15 do begin
    k := Random(5)-2;
    WriteLn(f, IntToStr(k));
  end;
  CloseFile(f);

Вопросы?

[type_Oleg]

Сообщение от tane

Вот запись у файл чисел,но вместо чисел - иероглифы..

А как вы увидели эти иероглифы. Наверное, открыли в Блокноте ( слово txt наводит на эту мысль). Тогда все правильно. Блокнот читает побайтно файл, и выводит символы, у которых код равен этому байту.

Вы путаете текстовые и типизированные файлы. Создаете типизированный, и пытаетесь читать как текстовый.

Попробуйте кстати вот так

for i:=48 to 57 do begin 
    write(f, i)

и посмотреть в блокноте

[Алексей_2012]

Учу самостоятельно Delphi вторую неделю.Нужно решить задание.

Почти поверели) А иероглифы у вас от того, что файл у вас объявлен целого типа, а надо текстового, ну а на крайняк-типизированного, и при добавлении записи преобразовывать число в строку, ну опираясь на вашу идею написал программу, но просмотреть этот файл можно только через эту программу, иначе результат один-иероглифы) Тему в принципе вам разжевали, остальное-за вами) вот ваша программа.

type_Oleg, а разве типизированный файл не есть файл записи одного типа и фиксированной длины, то есть:

type
zapis=record
stroka:string[15];
price:real;
kolich:word;
end;

var
f:file of zapis;
w:zapis;

[type_Oleg]

Ну да, и file of integer - тоже типизированный.

[Serge_Bliznykov]

doktor255, Алексей_2012, я вас очень прошу, не надо давать советы в категорической форме, если не чувствуешь на 100%, что ты владеешь вопросом и являешься в этом Мастером.

например, с чего Вы решили, что автору топика нужен ТЕКСТОВЫЙ файл?!
Оттого, что Вы не знаете/не любите/не умеете работать с типизированным файлом?!

В данной задачи как раз ЯВНО нужно использовать типизированный файл (ибо только в типизированном файл может идти речь о "компонентах"

Сообщение от -tane

Вот запись у файл чисел,но вместо чисел - иероглифы.

как выше правильно сказали, так и должно быть. Этот файл является бинарным (двоичным), он НЕ ТЕКСТОВЫЙ! Его можно читать/писать только программным способом. Т.е. Вы пишете программу, которая создаёт данный файл или изменяет в нём компоненты, или выводит содержимое файла (куда, это уже зависит от программы, как вариант, программа может вывести данные в текстовый файл, можно вывести на экран, если у Вас консольная программа, или в любой визуальный контрол, если у Вас программа с формами.

Сообщение от -tane

1.Какой создать файл(txt...) ?

код, который Вы привели в своём сообщении - это и есть правильное создание данного файла.
Единственно, позволю себе дать Вам небольшой совет: вашей программе абсолютно безразлично имя файла (ну, если оно является допустимым в файловой системе, разумеется), но, чтобы не путать себя, других и программы ОС, лучше давать своему файлу СВОЁ расширение.
примерно так:

  AssignFile(f,'c:\Myfile.bin');

можно использовать расширение .dat или .int или вообще набор букв (.ddd, например).
Это позволит Вам не открывать данные файл в блокноте и не пугаться содержимому!

Сообщение от -tane

2. Как удалить из файла все отрицательные компоненты?

вот тут всё зависит от алгоритма, который вы выберете.
самый простой и надежный (имхо) - это использовать доп.файл в качестве временного. Тогда можно читать из исходного файла по одной компоненте, положительные писать во временный файл, отрицательные - игнорировать.
После окончания, закрыть оба файла, удалить исходный, переименовать временный в имя, которое было у исходного файла.

вариант 2. Создать в памяти массив, равный размеру файла. Прочитать в него положительные числа (как и в первом случае, отрицательные игнорируем). Перезаписать файл и записать в него полученные положительные числа.

вариант 3. Самый сложные, муторный, НЕ ЭФФЕКТИВНЫЙ и НЕ НАДЁЖНЫЙ!
Алгоритм такой, идём в цикле, читаем из файла по одной компоненте, как только очередная компонента файла оказалась отрицательным числом, то последовательно в цикле сдвигаем все оставшиеся компоненты файла на её место. В данном случае можно использовать тот факт, что типизированный файл является файлом прямого доступа, с помощью процедуры Seek() указатель в файле можно установить на ЛЮБОЙ компонент файла и либо прочитать это компонент, либо - записать новое значение на место этого компонента.

рекомендую выбирать из первых двух.
Будут сложности, пишите, тут подскажут/помогут.

[Алексей_2012]

Serge_Bliznykov, почему сразу категорично?) ведь в моем вложении и есть работа именно с типизированным файлом, но расширение да, текстовое. Причем алгоритм по удалению отрицательных чисел реализован через массив затем файл перезаписывается, или я вас не так понял?

[doktor255]

Сообщение от Serge_Bliznykov

например, с чего Вы решили, что автору топика нужен ТЕКСТОВЫЙ файл?!

Сообщение от tane

1.Какой создать файл(txt...) ?

Не надо валить вину на нас, из за неумения автором задавать вопросы.

[ZuBy]

Сообщение от doktor255

Не надо валить вину на нас, из за неумения автором задавать вопросы.

Он спросил! Какой файл создать?
дополняя текст txt? bmp? bin? dat? mp3?

[doktor255]

Извиняюсь за неумение додумывать.