如何将一个txt文件的内容，转到一个char数组 ( 积分: 50 )

H

huanghq123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-15

• #1

如何将一个txt文件的内容，转到一个char数组 。谢谢

 

创

创意人生

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-15

• #2

PChar可以吗？
Var
List : TStrings;
P : PChar;
begin
List := TStringList.Create;
try
List.LoadFromFile(Your Text File);
P := PChar(List.Text);
Finally
List.Free;
end;

 

创

创意人生

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-15

• #3

procedure TForm1.Button1Click(Sender: TObject);
Var
List : TStrings;
P : PChar;
A : Array of Char;
FS : TFileStream;
begin
FS := TFileStream.Create('E:/1.txt',fmOpenRead);
try
FS.Position := 0;
SetLength(A,FS.Size);
P := PChar(A);
FS.Read(P^,FS.Size);

ShowMessage(A[1]);
Finally
FS.Free;
end;

end;

 

H

huanghq123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-15

• #4

不行啊，我要的是数组，因为我还要去数组的长度。

 

创

创意人生

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-15

• #5

哪里不行？

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-15

• #6

Var
List : TStrings;
A : Array of Char;
FS : TFileStream;
begin
FS := TFileStream.Create('E:/1.txt',fmOpenRead);
try
FS.Position := 0;
SetLength(A,FS.Size);
FS.Read(A[0], FS.Size);
Finally
FS.Free;
end;

A就是你要的CHAR数组。

 

H

huanghq123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-20

• #7

多人接受答案了。