dr-delphi
شنبه 06 فروردین 1390, 21:48 عصر
سلام
میشه بگید کد زیر کجاش اشتباهه؟
ایا روش های بهتری هم هست؟
میشه راهنمایی کنید اساتید؟
var
str : TFileStream;
enc : TFileStream;
i : integer;
s : string;
buf : byte;
begin s:='c:\123.txt';
str:=TFileStream.create(s,fmopenread);
enc:=TFileStream.create('c:\123_enc.txt',fmcreate) ;
for i:=1 to str.size do
begin str.readbuffer(buf,8);
buf:=buf xor 8;
enc.write(buf,8);
end;
end;
end.
میشه بگید کد زیر کجاش اشتباهه؟
ایا روش های بهتری هم هست؟
میشه راهنمایی کنید اساتید؟
var
str : TFileStream;
enc : TFileStream;
i : integer;
s : string;
buf : byte;
begin s:='c:\123.txt';
str:=TFileStream.create(s,fmopenread);
enc:=TFileStream.create('c:\123_enc.txt',fmcreate) ;
for i:=1 to str.size do
begin str.readbuffer(buf,8);
buf:=buf xor 8;
enc.write(buf,8);
end;
end;
end.