Hallo zusammen.
Ich möchte einfach einen String mit einem FileStream speichern.
So hab ich es gemacht:
Delphi-Quellcode:
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
FFileStream : TFileStream;
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
MyString : String;
LengthOfString : Integer;
begin
MyString := 'Hallo Welt' + #13#10;
LengthOfString := Length(MyString);
FFileStream.Write(MyString, LengthOfString);
end;
//------------------------------------------------------------------------------
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeAndNil(FFileStream);
end;
//------------------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
FFileStream := TFileStream.Create('MyStream.txt', fmCreate, (fmShareDenyRead or fmShareDenyNone));
end;
//------------------------------------------------------------------------------
end.
Leider steh in meiner Text Datei nicht das gewünschte Ergebnis sonder diese Hex Wert:
C4 42 46 00 20 43 A1 00 04 F7 12 00
Was mache ich falsch?
Vielen Dank