Tekstovna ali binarna datoteka?

Odpiranje, tiskanje, pisanje v datoteke in drugo.
Genius
Prispevkov: 390
Pridružen: 12.08.2003 10:23:13

Tekstovna ali binarna datoteka?

Odgovor Napisal/-a Genius » 16.11.2005 18:07:18

Offtopic:

Nisem spremljal od začetka, ko je ta forum nastal. Vidim, da ste vsi proti temu Delfiju.
Zanima me kaj je takega naredil?

Uporabniški avatar
Lee_Nover
Prispevkov: 3653
Pridružen: 20.05.2001 14:31:55

Tekstovna ali binarna datoteka?

Odgovor Napisal/-a Lee_Nover » 16.11.2005 22:56:15

ma ne vem ce bi .. verjetn bi su rajs 2x prevert, da RES ni binarna ! :)
.. my 2 c ..
- I hate noobs -

GJ
Prispevkov: 1078
Pridružen: 13.03.2004 12:34:48

Tekstovna ali binarna datoteka?

Odgovor Napisal/-a GJ » 16.11.2005 23:43:30

Sem enkrat delu neki podobnega pa precej hitr je mogl delat..
Sm najdu..
Če komu kej pomaga..

Koda: Izberi vse

  
function CheckCharacters(const buffer: PChar; length: cardinal): boolean;
const
  N = false;
  Y = true;

  GoodChar: array [char] of boolean =
    (N, N, N, N, N, N, N, N, N, N, Y, N, N, Y, N, N,
     N, N, N, N, N, N, N, N, N, N, N, N, N, N, N, N,
     Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y,
     Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y,
     Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y,
     Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y,
     Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y,
     Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, Y, N,
     N, N, N, N, N, N, N, N, N, N, N, N, N, N, N, N,
     N, N, N, N, N, N, N, N, N, N, N, N, N, N, N, N,
     N, N, N, N, N, N, N, N, N, N, N, N, N, N, N, N,
     N, N, N, N, N, N, N, N, N, N, N, N, N, N, N, N,
     N, N, N, N, N, N, N, N, N, N, N, N, N, N, N, N,
     N, N, N, N, N, N, N, N, N, N, N, N, N, N, N, N,
     N, N, N, N, N, N, N, N, N, N, N, N, N, N, N, N,
     N, N, N, N, N, N, N, N, N, N, N, N, N, N, N, N);

var
  m: cardinal;
begin
  for m := 0 to length - 1 do
    if not GoodChar[buffer[m]] then
    begin
      result := false;
      exit;
    end;
  result := true;
end;
Sej se da še hitrej, ampak je blo to dost hitr..

LP :D GJ
Zadnjič spremenil GJ, dne 16.11.2005 23:47:26, skupaj popravljeno 1 krat.
Kdor se zadnji smeje, se smeje zadnji!

Odgovori