Спасибо вам, неизвестный, за то что насмехаетесь.
Цитата:
разве нельзя использовать функцию FileExists перед открытием?
|
Можно. Тут акцент идет на запись и на считывание.
4 байта считываются, но не те.
Код:
w:='text';
stream := TFileStream.Create('qwe.my', fmCreate);
stream.Write(w,SizeOf(w));
Stream.Free;
.......................................................
stream := TFileStream.Create('qwe.my', fmOpenRead);
stream.Read(w,SizeOf(w));
Stream.Free;
ShowMessage(w);
и
Код:
w:=Edit1.Text;
stream := TFileStream.Create('qwe.my', fmCreate);
stream.Write(w,SizeOf(w));
Stream.Free;
.........................................
stream := TFileStream.Create('qwe.my', fmOpenRead);
stream.Read(w,SizeOf(w));
Stream.Free;
ShowMessage(w);
Вот почему, верхняя работает нормально, а нижняя нет ^^