Witam, mam taki problem, który dzieli mnie od zakończenia pracy nad programem. Nie mogę w żaden sposób zapisać do plików niektórych znaków wg. ich kodów ascii, np. znak o kodzie 175 (») po zapisie okazuje się być znakiem 97, ale gdy bezpośrednio w poleceniu write napiszę Write(TF, #175); wszystko działa, jednak nie o to mi chodzi bo znaki do zapisu są ładowane ze zmiennych (dołączane do ciągów znaków, ale to nie jest priorytetem) i nie ważne czy użyje zmiennej char, czy zmiennej byte z funkcją chr to zawsze jest co innego na wyjściu niż na wejściu.
0
0
pokaż kod.
i powiedz jakiej wersji kompilatora używasz.
0
Cudów chyba nie ma , pewnie coś "nie teges" jest podczas zapisywania
Daj kod
ja bym to zrobił np. tak:
var
tab:array[0..255] of byte;
f: TfileStream;
i: integer;
begin
for i := 0 to 255 do
tab[i] := i;
f := TfileStream.create('test.txt',fmCreate);
f.write(tab[0], 256);
f.free;
end;
0
Adamek, dzięki wielkie, z TFileStream wszystko poszło jak należy :)
0
Ależ proszę
Chyba będę tu częściej zaglądał ;)
Bo ruch nawet w niedzielę