不是的!!!!!
String可以存放数据达到2G字节。
你说的是ShortString, 有别于String,即AnsiString;你的情况可能是你的定义是:
var
s: String[200]; //这样子限定长度,则最多只能定义为String[255];
s1: string; //这样子,就可以存储2G字节。将一个文本的内容放到String中:
var
strlst: TStringList;
sText;
const
csFileName = 'c:\abc.txt';
begin
strlst := TStringlist.Create;
try
strlst.LoadFromFile( csFileName );
sText := strlst.Text;
finally
strlst.Free;
end;
// Deal the sText;
end;
解决方案 »
- dxtreelist数据量大,5000条,循环表示很慢。
- 请教下邮件服务器的问题
- 汗,很棘手的问题
- 安装 Report Machine 2.6 成功,但运行的时候提示出错,"Project Project1.exe raised exception class ERadeError with message 'propert
- 如和用动态变量表示控件名,如有控件checkbox1,checkbox2,checkbox3...(马上结帖)
- 如何将应用程序缩身于系统的“任务栏”上?
- Delphi 的问题 请高手帮忙!!急!!!谢谢!!!!
- 滚动显示,希望可以加入精华贴;
- 如何播放WAV声音文件?在线等待!
- 如何传输文件?
- 又一次对窗体固定提一个问题
- 为什么我编的一个软件在运行的时候有时会出现“参数错误”的问题,我看我的代码也都是符合语法的啊。
//替换
sText := StringReplace( sText, 'abc', 'kknd', [rfReplaceAll] );
//写回文件
strlst.Text := sText;
strlst.SaveToFile( csFileName );
adoc:Variant;
add:string;
adoc := CreateOleObject('ADODB.Connection');adoc.Open ('Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+add+';Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False');
//这一句就出错,说"string literal may have more than 255 elements"
这里有一个add变量是用来动态设定数据库得位置 adoc.Open ('Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=d:\price.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False');//这一句就可以通过编译 而如果把open中的字符串,用一个source(string类型)
就成adoc.Open(source);这时就会在source上出现同样的错误提示
不知是什么原因
不过普通情况下是$h-