[Frozzy6]

На форме 2 кнопки и Edit

Код:

procedure TForm1.Button1Click(Sender: TObject);  
var stream: TFileStream;  
    w:string;  
begin  
w:=Edit1.Text;  
stream := TFileStream.Create('qwe.my', fmCreate);  
stream.Write(w,SizeOf(w));  
Stream.Free;  
Edit1.Text:='';  
end;  
 
  
 
procedure TForm1.Button2Click(Sender: TObject);  
var stream: TFileStream;  
    w:string;  
begin  
stream := TFileStream.Create('qwe.my', fmOpenRead);  
stream.Read(w,SizeOf(w));  
Stream.Free;  
Edit1.Text:=w;  
end;  

Админ: Пользуемся тегами для оформления кода!

Почему не работает?
После нажатия Button1, а потом Button2 он в Edit пихает 'qwe.my'...
А если просто после запуска нажать Button2, то выходит ошибка, хотя qwe.my существует.
Помогите разобраться пожалуйста.

[angvelem]

Такие строчки радуют:

Код:

stream.Write(w,SizeOf(w));  

stream.Read(w,SizeOf(w));  

записать 4 байта, прочитать 4 байта - здорово.

...хотя qwe.my существует

разве нельзя использовать функцию FileExists перед открытием?

[Frozzy6]

Спасибо вам, неизвестный, за то что насмехаетесь.

разве нельзя использовать функцию 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);

Вот почему, верхняя работает нормально, а нижняя нет ^^

[angvelem]

Хм, интересно, где я насмехался? То что код корявый так и написал, насмешки тут не при чём.

Код:

Вот почему, верхняя работает нормально, а нижняя нет ^^

раз вопрос ставится так, значит у вас версия Дельфи 2009 или выше (юникодная).

[Frozzy6]

2009

решение проблемы

Код:

var stream: TFileStream;  
     w:WideString;  

Хм, интересно, где я насмехался? То что код корявый так и написал, насмешки тут не при чём.

Код писал в целях изучения класса.

[lmikle]

Сообщение от Frozzy6

Код писал в целях изучения класса.

Со строками работать надо подругому, бо как обычно SizeOf(String) <> Length(String).

[icWasya]

Для строк нужна вот такая магия

Код:

W:String;
L:Integer;
w:=Edit1.Text;
L:=Length(W);
stream := TFileStream.Create('qwe.my', fmCreate);
stream.Write(L,SizeOf(L));//<<==-------
stream.write(W[1],L*Siseof(W[1]));//<<==-------
Stream.Free;
.........................................
stream := TFileStream.Create('qwe.my', fmOpenRead);
stream.Read(L,SizeOf(L));//<<==-------
SetLength(W,L);//<<==-------
stream.Read(W[1],L*Siseof(W[1]));//<<==-------
Stream.Free;
ShowMessage(w);