با سلام
من چنین کدی دارم:
procedure S();
Var
S:String;
F:File;
Buf:Array[1..3]of Char;
BytesNo:Integer;
Begin
AssignFile(F,'English Words.txt');
ReSet(F,1);
Seek(F,0);
BlockRead(F,Buf,sizeof(Buf),BytesNo);
S:=Buf;
MessageDlg('Sizeof(Buf) Is :'+Inttostr(sizeof(Buf))+Buf,mtInformation,[mbOk],0);
MessageDlg('Sizeof(S) Is :'+Inttostr(sizeof(S))+S,mtInformation,[mbOk],0);
eND;
سوالی برام پیش اومده :
اگه اندس اول آرایه Buf رو صفر کنم یا یک کنم در هر صورت (SizeOf(S یکسانه!
(در هر صورت طول رشته S برابر 4 هستش)
چنین چیزی چطور ممکنه؟