Некорректная работа с файлами

[Gapro]

Создал процедуру для чтения из одного файла и записи в другой файл типа integer. Но напоролся на странную вещь - данные считанные из одного файла программа вывела в другой файл нормально, а простую переменную типа integer выводит как кракозябру. Как это можно исправить?

var 	f: file of integer;  {ôàéëîâàÿ ïåðåìåííàÿ}
     	g: file of integer;  {ôàéëîâàÿ ïåðåìåííàÿ}
    	x,k,n,i: integer;
           a: array [0..10000] of integer;

Begin
  a[0]:=0;
  n:=1;
	assignfile(f,'f.txt');
	assignfile(g,'g.txt');
  {$I-}
	reset(f); 
  rewrite(g); 
	{$I+}
	if IORESULT=0 then 
  begin
	    while not(EOF(f)) do 
      begin       
 		    read(f,x);
        if(x>=0) then inc(a[0]);
 		    a[n]:=x;
        n:=n+1;
	    end;

	    for i:=0 to n-1 do
      begin
        write(g,a[i]);
      end;
      closefile(g);
      closefile(f);
 end;

[Lifefine]

ИМХО, а почему Integer? а не string?

[chertovich]

В переменную типа Integer не может содержать "кракозябра", поскольку какие бы ты 4 байта не записал в эту переменную, они будут интерпритированны как какое-то значение.

[Gapro]

У меня write выводит ascii символ, а не переменную, а почему и как это исправить понять не могу.

В переменную типа Integer не может содержать "кракозябра", поскольку какие бы ты 4 байта не записал в эту переменную, они будут интерпритированны как какое-то значение.

Символ тоже какое то значение

[Johnson]

Ну для начала поставьте бряк на начало записи и пошагово отслеживайте что у Вас читает из файла, и что пишет в файл...
ИМХО, дело в неправильном чтении файла.
Так же можно посмотреть как устроено чтение и запись в TIniFile.

а ещё... стоило бы массив сделать динамическим.

[Gapro]

Я отслеживал, считывает огромное число, но при записи в файл оно нормально. А как тогда правильно читать из file of integer? Такое ощущение что в file of integer совсем не integer.

[chertovich]

может файловым потом лучше будет считывать?
А вообще, используй Hex-редактор и дебагер, и отлаживай свою программу. При записи очень больших и сложных алгоритмов без него никак.

[Gapro]

А вообще, используй Hex-редактор и дебагер, и отлаживай свою программу. При записи очень больших и сложных алгоритмов без него никак.

Алгоритм тут простейший, да и локальная задача простейшая считать содержимое f и записать в g количество положительных элементов, а затем все содержимое f

[Johnson]

Смотри, как устроены TIniFile и читай строку 4 байта, затем приводи типы, например
PDouble(@str[1])^

А вобще... в каком виде должны храниться числа в файле? В виде читаемой строки, или в виде 4 байт?

[Gapro]

Числа хранятся как обычный текстовый файл: "1 2 3 4 5 " к примеру.

Такое ощущение, что Это из-за того, что я в 7-ке пишу на Delphi 7. Потому что даже Memo.Lines.LoadFromFile мне чушь выдает