TFileStream помогите плиз

← →
Demo © (2003-03-18 08:28) [0]

как правильно сделать шоб выщитывалась разность байт в one и two
и когда записывалась в run писало например так (смещение)разница
void __fastcall TForm1::Button4Click(TObject *Sender)
{
int on,tw,ru;
bool set;
BYTE *onB,*twB,*ruB;
BYTE *SAR_shell="(",*SAR_jle=")";
upd gh;
TFileStream* one = new TFileStream(Edit1->Text,fmOpenRead);
TFileStream* two = new TFileStream(Edit2->Text,fmOpenRead);
TFileStream* run = new TFileStream(Edit3->Text,fmCreate);
for(tw=0;tw<=two->Size-1;tw++){
for(on=0;on<=one->Size-1;on++)
one->Position=on;
two->Position=tw;
one->Read(&onB,1);
two->Read(&twB,1);
if(onB!=twB){
run->Write(SAR_shell,1);
run->Write(&gh,1);
run->Write(SAR_jle,1);
run->Position=tw-one->Size;
run->Write(&twB,1);
}
}
one->Free();
two->Free();
run->Free();
}

← →
Smithson © (2003-03-18 08:54) [1]

Солнце мое, а в чем вопрос-то?

как ПРАВИЛЬНО записать разницу в двух файлах в отдельный файл UPDATE.rrr шоб потом дописать в первую версию проги

TFileStream помогите плиз Найти похожие ветки