一个困扰我很久的问题！！！

[xzhifei]

在delphi中，为了保存一个类型文件，自定义一个记录结构，如：
type
TRecord=packed recod
name:string[20];
information:string[255];
end;

请问，怎么做，才能突破string类型长度最长为255的限制！

[票票飞扬]

WideString

[xzhifei]

请问有没有详细的源码，给我看一下！！

[chll]

information:string；就行了
Delphi中的string类型很强大，我们知道普通的字符串长度最大为256个字符，但Delphi中string类型在默认情况下长度可以达到2G。

[Delphi_Li]

如果你使用了String类型，那么就不能使用Packed关键字。

你也可以使用微软提供的ISTREAM和ISTROAGE接口进行结构化的数据存取！！！

[xzhifei]

楼上的兄弟
你那么定义在类型文件中是不行的，因为字符串类型需要长度

[披星戴月]

ansistring 是没有长度限制的字符串类型，string默认为ansistring类型，
所以直接定义为string 就行了！

[Kingron]

type
TRecord=packed recod
name:string[20];
information:array[0..1023] of char;
end;

[slyse]

定义为string没有错，在D6中我也经常这样做。不过我不知道在D5中可不可以。
事实上从你的需求来看，根本就不需要定长的记录。

[del_c_sharp]

强烈建议用字符数组.array[0..511] of char ////pchar

[del_c_sharp]

type
tt=packed record
t:string;
end;

ai!!!!!

我怎么运行通过了???????????????????

[xzhifei]

通各位高手的提示，问题已经解决，但是又发现一个问题，有可能出现乱码，
源码如下：

unit SaveDB;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TRecord=packed record
name:string[20];
information:array[0..1023] of char;
end;
RF= file of TRecord;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Memo2: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
records:TRecord;
RFS:RF;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
AssignFile(RFS, 'c:\a.txt');
if FileExists('c:\a.txt') then
Reset(RFS)
else
Rewrite(RFS);
records.name :='asdfasdf';
for i:=0 to 1023 do
records.information[i] :=Pchar(copy(Memo1.Text,i,1))^;

Write(RFS, records);
seek(rfs,0);
read(rfs,records);
Memo2.Text:=records.information;

end;

end.