question TfileStream

[Crabobass]

var
    f:TFileStream;
    a:array [0..14] of Integer;
    stch,stnech:string;
    i,ch,nech:integer;
begin
    ch:=0;
    nech:=0;
     For i:=0 to 14 do
      begin
        randomize;
        a[i]:=random(50);
      end;
     For i:=0 to 14 do
      begin
      if odd(a[i])=true then
      nech:=nech+1;
      if odd(a[i])=false then
      ch:=ch+1;
      end;
      stch:=('Number of even elements ='+inttostr(ch));
    stnech:=('Number of odd elements ='+inttostr(nech));
    f:=TFileStream.create('D:\Programms\Laba4(stream)\file.txt',FmCreate or FmOpenwrite);
    f.Position:=0;
    f.Write(stch,sizeof(stch));
    f.Free;
end;

в файл записывается вот такая вот абракадабра: ЊF#

что не так?

[Пепел Феникса]

строки так не пишут.
надо писать так:

Stream.Write(String[1],Length(String)*SizeOf(Char));

[Crabobass]

Благодарю. Теперь всё ок.

[Человек_Борща]

Потому что ты записываешь не текст а поток.
И читать его надо тоже как поток.

Если нужен текст то TStringList

[Crabobass]

Спасибо, теперь понятно.

[Пепел Феникса]

стоп, уточнение не совсем верное, то что поток ничего не меняет.

главное то что у вас строка(причем не константа) а строки как и объекты хранятся указателями, его вы и записывали в файл.

просто Write/WriteLn смотрят что вы передали string как параметр(и далее по сути пишут так как я сказал, ну WriteLn еще и конец строки пишет)

TStringList тоже не панацея.

[chertovich]

Правильно было сказано, а я добавлю, что при операциях с массивами (а строка это массив символов) нужно указывать начальный элемент, для строки это Str[1], для других массивов (обычно с 0) Buff[0]