Почему появляется такая гадость

← →
Blade © (2003-12-10 08:59) [0]

При попытки записи массива в файл вылазиет такая гадость
в файл пишутся не те данные
Вот код
nit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure WriteString(__F: TFileStream; __String: string);
var _StrLen: Integer;
begin
_StrLen := Length(__String);
__F.WriteBuffer(_StrLen, SizeOf(Integer));
__F.WriteBuffer(__String[1], _StrLen);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
f:TFileStream;
buf:Array[1..100] of string;
i:integer;
begin
try
f:=TFileStream.Create("001.txt",fmOpenWrite or fmCreate or fmShareDenyNone);
For i:=1 to 100 do begin
buf[i]:="1";
F.WriteBuffer(buf[i],Length(Buf[i]));что эти способом
WriteString(F, buf[i]);только эта процедура работает
end;
F.WriteBuffer(buf[1], Length(Buf));что этим способом
f.Free;
ShowMessage("Write OK!");
except
ShowMessage("Error!");
end;
end;

вот что в файле

← →
MBo © (2003-12-10 09:06) [1]

F.WriteBuffer(buf[i][1],Length(Buf[i]));

Почему появляется такая гадость Найти похожие ветки