delphi 数据处理
TStringStream 怎样转换String
procedure TForm1.Button1Click(Sender: TObject);
var
ss:TStringStream;
str:String;
begin
ss:=TStringStream.Create('');
for i:= to do
begin
ssThickness.WriteString(Floattostr(i+)+',');
end; str:= SS;//此处怎样转换到字符串? end;
分享到:
-- :网友采纳
str:=ss.DataString; 这样就是将TstringStream转换成String
函数参数修饰中的var 、out和const
(1)var修饰符
添加var 是地址传递,会修改原有的变量
var s: string; begin S := 'Hello'; ChangeSVar(s); ShowMessage(S); end; // ChangeSVar 定义 procedure TForm1.ChangeSVar(var A: string); begin A := A + 'World'; end;
以上会输出Hello World,因为是传址,修改的是原来的A
(2)无任何修饰符
var s: string; begin S := 'Hello'; ChangeS(s); ShowMessage(S); end; // ChangeS定义 procedure TForm1.ChangeS(A: string); begin A := A + 'World'; end;
以上会输出Hello,因为方法ChangeS其实是创建了一个新的A,而输出的还是原来的A,值并没有改变
(3)out修饰符
var s: string; begin S := 'Hello'; ChangeSOut(s);// 此时S的值是'Hello,'而非'Hello,World'!,在过程Hello中的S的原始值被丢弃了 ShowMessage(S); end; // ChangeSOut定义 procedure TForm1.ChangeSOut(out A: string); begin A := A + 'World'; end;
以上会输出World,out仅仅接受返回的值,对out的任何输入都会被忽略。同时out传递给过程的实际参数不必进行初始化,比如对ChangeSOut的调用:
Var Tmp: string; Begin ChangeSOut(Tmp);//编译也可以通过 End;
(4)Const修饰符
Const修饰的参数传入之后不允许修改
如果在过程中修改参数会报错,比如:
Procedure xxxx.TestConst(const A: String); Begin A := ’ss’; //企图修改const修改的参数,会报错 End;
使用LeftStr,RightStr,MidStr截取字符串
如果要使用LeftStr,RightStr,MidStr必需引用系统单元StrUtils; 声明变量Str:string; Str:=HelloWorld; 1,LeftStr(Str,2)=He;//从Str字符串变量的最左边(第一个字符包括第一个字符)开始截取2个字符; 2,RightStr(Str,2)=ld;//从Str字符串变量的最右边(第一
如果要使用LeftStr,RightStr,MidStr必需引用系统单元StrUtils;
声明变量Str:string;
Str:=HelloWorld;
1,LeftStr(Str,2)=He;//从Str字符串变量的最左边(第一个字符包括第一个字符)开始截取2个字符;
2,RightStr(Str,2)=ld;//从Str字符串变量的最右边(第一个字符包括第一个字符)开始截取2个字符;
3,MidStr(Str,2,2)=el;//从Str字符串变量的中第2个字符开始取长度为2个字符的字符串;
另外有一个函数Copy
4,Copy(Str,2,2)=el;//从Str字符串变量的中第2个字符开始取长度为2个字符的字符串;(类似于MidStr);
Delphi中String与PAnsiChar转换
在application.messagebox()函数中的第一个参数要用到PAnsiChar。
所有的原生字符串类型String转PAnsiChar都需要经过AnsiString过渡
strAnsi:= PAnsiChar(AnsiString(str));
PChar与String互转
Delphi PChar与String互转
.String转化成PChar 例: var str: string; pStr:PChar; ... pStr := PChar(str);
PChar := PChar(string); .PChar转String 例: var pStr:PChar; str:string; ... str := strPas(pStr);
string := strPas(PChar);
delphi String 与 Stream的互转
stream1 := TStringStream.create(str); str := TStringStream(stream1).DataString; Stream 是抽像类,需要转换成TMemoryStream才能进行操作
英文字母大小写转换
function UpperCase(const S: string): string;转大写 function LowerCase(const S: string): string;转小写
delphi中double或float转Integer实践
var d :double; .用int(d)或integer(d)强制转换,均无法编译 .先FloatToStr,再StrToInt时,当有小数的情况就会发生错误 可行的方法是:先去掉小数部分,再强制转换 integer(Trunc(d)); 注:Trunc不会进位。
delphi字符串内多个空格合为一个空格
//delphi字符串内多个空格合为一个空格
Function More2OneSpace(aStr: String): String;
Var
i: Integer;
AWideStr: WideString;
Begin
AWideStr := Trim(aStr);
Result := Copy(AWideStr, , );
//目标串的最后一个字符,利用栈来消除多余的空格
For i := To Length(AWideStr) Do//www.delphitop.com
Begin
If (AWideStr[i] <> ' ') Or (RightStr(Result, ) <> ' ') Then
Begin
Result := Result + AWideStr[i];
End;
End;
End;
将string转化为pwidechar,怎样给pwidechar分配空间,怎样删除pwidechar所占用的空
-----------------乱写的,呵呵
var
S: string
P: PWideChar;
begin
S := 'Hello world';
P := PWideChar(PChar(S));
end;
---------------------------
var
S:string;
P:pwidechar;
begin
S:='hello world';
copymemory(P,@string[],length(string)); end;
----------------------
pName,pPassWord,pGroup,pMemo:PWideChar;
begin
Result:='其它错误';
getmem(pName,);
getmem(pPassWord,);
getmem(pMemo,);
StringToWideChar(name,pname,);
StringToWideChar(Password,pPassWord,);
StringToWideChar(Memo,pMemo,);
//我写的一段程序。正确运行通过。 ?
freemem(parm_err,);
freemem(pName,);
freemem(pPassWord,);
freemem(pMemo,);
//删除pwidechar所占用的空间?
-------------------------
var
s,s1: string;
pw: PWideChar;
begin
s:='hello world';
GetMem(pw,*length(s)+);
pw:=StringToWideChar(s,pw,length(s)+);
s1:=WideCharToString(pw);
edit1.Text:=s1;
freemem(pw);
end;
----------------------
标准做法:
var
s:sting;
pwc:PWidechar;
len:integer;
begin
s:='abcdefg';
len:=length(s)+;
pwc:=AllocMem(len*sizeof(widechar));
stringtowidechar(s,pwc,len);
showmessage(widechartostring(pwc));
FreeMem(pwc);
end;
----------------正确的做法------
大家对STRINGTOWIDECHAR函数有理解上的错误。
STRINGTOWIDECHAR(S,PW,此处应为PW的空间大小除以2:也就是length(s)+。)
字符串string和内存流MemoryStream及比特数组byte[]互转比较
定义string变量为str,内存流变量为ms,比特数组为bt
1.字符串转比特数组
(1)byte[] bt=System.Text.Encoding.Default.GetBytes("字符串");
(2)byte[] bt=Convert.FromBase64String("字符串");
2.字符串转流
(1)MemoryStream ms=new MemoryStream(System.Text.Encoding.Default.GetBytes("字符串"));
(2)MemoryStream ms=new MemoryStream(Convert.FromBase64String("字符串"));
3.流转比特数组
(1)byte[] bt=ms.ToArray();
(2)MemoryStream ms=new MemoryStream();ms.Write(bt,0,ms.Length);
4.流转字符串
(1)string str=Convert.ToBase64String(ms.ToArray());
(2)string str=System.Text.Encoding.Default.GetString(ms.ToArray());
5.比特数组转字符串
(1)string str=System.Text.Encoding.Default.GetString(bt);
(2)string str=Convert.ToBase64String(bt);
6.比特数组转流
(1)MemoryStream ms=new MemoryStream(bt);
(2)MemoryStream ms=new MemoryStream();ms.Read(bt,0,bt.Lenght);
可以看出byte[]比较活跃在string和流转化时是个重要的桥梁
incompatible types
不相容类型 incompatible: [ ,inkəm'pætəbl ]
a. 不相容的,不能并存的,矛盾的
[名词incompatibleness 副词incompatibly]
字符串string和内存流MemoryStream及比特数组byte[]互转比较
定义string变量为str,内存流变量为ms,比特数组为bt
.字符串转比特数组
()byte[] bt=System.Text.Encoding.Default.GetBytes("字符串");
()byte[] bt=Convert.FromBase64String("字符串");
.字符串转流
()MemoryStream ms=new MemoryStream(System.Text.Encoding.Default.GetBytes("字符串"));
()MemoryStream ms=new MemoryStream(Convert.FromBase64String("字符串"));
.流转比特数组
()byte[] bt=ms.ToArray();
()MemoryStream ms=new MemoryStream();ms.Write(bt,,ms.Length);
.流转字符串
()string str=Convert.ToBase64String(ms.ToArray());
()string str=System.Text.Encoding.Default.GetString(ms.ToArray());
.比特数组转字符串
()string str=System.Text.Encoding.Default.GetString(bt);
()string str=Convert.ToBase64String(bt);
.比特数组转流
()MemoryStream ms=new MemoryStream(bt);
()MemoryStream ms=new MemoryStream();ms.Read(bt,,bt.Lenght);
可以看出byte[]比较活跃在string和流转化时是个重要的桥梁
E2010 Incompatible types 'Char' and 'AnsiChar' 错误的处理
E2010 Incompatible types: 'Char' and 'AnsiChar' 错误的处理
在网上搜了一个ping函数,用到pchar(string),编译时出现这个错误,其实以前也碰到这个问题:
delphi7版本中的Pcharh函数在delphi2010中使用时,编译时出现错误:E2010 Incompatible types: 'Char' and 'AnsiChar'
这时可以这样使用: PAnsiChar(AnsiString(string));
说明:
在delpin中之前,Char对应的是AnsiChar,PChar对应PAnsiChar,string(未映射成老的ShortString)对应AnsiString;而在delphi2010里,对应的是WideChar,PChar对应PWideChar,string对应UnicodeString
UnicodeString是delphi2010中出现的新字符串类型,之前没有对应版本;delphi2010中的AnsiString也和之前版本的AnsiString类型有差别(多了两个word,一个表示code page,另一个表示element size),但基本上可以一样用,它与UnicodeString使同相同的管理。如果在delphi2010之前用过tntware套件的话,从没有引用计数的WideString过渡到delphi2010的UnicodeString完全没难度。
delphi 数据处理的更多相关文章
- Delphi FrieDAC 大数据处理
Delphi FrieDAC 大数据处理 大数据处理, 要用到Array DML 插入数据 先要设置插入的数据量 FQuery1.Params.ArraySize := 1000; for index ...
- Delphi中ComPort通信中的数据处理
源: Delphi中ComPort通信中的数据处理
- delphi.指针.PChar
此文是delphi.指针.应用姊妹篇,想细化一下PChar应用,所以有了此文. 注意: 1:此文讲的是PChar与字符串相关操作,其它方法暂不多讲. 2:由于D分开Ansi/Unicode的两种完全不 ...
- Delphi 时间耗时统计
处理事情: 数据处理过程中,速度很慢,无法准确定位分析是DB问题还是客户端处理问题,所以增加计时统计日志: Delphi计时首次使用,查阅资料,予以记录: var BgPoint, EdPoind: ...
- [原创]DELPHI木马DIY之生成服务端
文章作者:上帝的禁区信息来源:邪恶八进制信息安全团队(www.eviloctal.com)DELPHI木马DIY之生成服务端 我在这里就生成简单的服务端,为什么不先讲服务端的隐藏?因为我觉得生成服 ...
- 基于Delphi的三层数据库系统的实现方法
基于Delphi的三层数据库系统的实现方法 1 引言 当前的数据库应用系统中,按其结构划分为两类,一类是两层结构的数据库应系统,另一类是多层结构的数据库应用系统. 两层结构的数据库应用系统包括客 ...
- DELPHI下的SOCK编程(转)
DELPHI下的SOCK编程 本文是写给公司新来的程序员的,算是一点培训的教材.本文不会涉及太多的编程细节,只是简单讲解在DELPHI下进行Winsock编程最好了解的知识. 题外话:我认为 ...
- delphi关于文件操作集锦
关于文件操作集锦 取得该快捷方式的指向EXE关键词:快捷方式 LNK unit Unit1; interface usesWindows, Messages, SysUtils, Varian ...
- DELPHI下的SOCK编程
DELPHI下的SOCK编程(转自http://www.cnblogs.com/devcjq/articles/2325600.html) 本文是写给公司新来的程序员的,算是一点培训的教材.本文不会 ...
随机推荐
- nginx的基础概念
http://tengine.taobao.org/book/index.html 算是看书笔记吧,太多了就用自己的话写一下了 nginx是以多进程 的方式来工作的,启动时会有一个master进程 ...
- c#将数据导出到excel中
DataTable dt = new BLL.T_Expiry().GetAllList().Tables[0];//查询数据 string FileName = "T_Users.xl ...
- jetson资料
http://www.waveshare.net/wiki/Jetson_Nano_Developer_Kit http://www.waveshare.net/wiki/JetBot_AI_Kit ...
- Navicat12破解教程
Navicat12破解教程 1.下载Navicat12 并安装,打开Navicat12 点击14天试用,关闭软件 2.下载注册机: 个人百度网盘(版本更新可能不及时):https://pan.baid ...
- nginx防止SQL注入规则
$request_uriThis variable is equal to the *original* request URI as received from the client includi ...
- mysql5.6和5.7安装 centos
mysql5.7安装 tar xf mysql--linux-glibc2.-x86_64.tar.gz mv mysql--linux-glibc2.-x86_64 /opt/mysql yum i ...
- Sqli labs系列-less-5&6 报错注入法(上)
在我一系列常规的测试后发现,第五关和第六关,是属于报错注入的关卡,两关的区别是一个是单引号一个是双引号...当然我是看了源码的.... 基于报错注入的方法,我早就忘的差不多了,,,我记的我最后一次基于 ...
- 前端每日实战:73# 视频演示如何用纯 CSS 创作一只卡通狐狸
效果预览 按下右侧的"点击预览"按钮可以在当前页面预览,点击链接可以全屏预览. https://codepen.io/comehope/pen/OEKZed 可交互视频 此视频是可 ...
- VMware Hyper-V不兼容
VMware Workstation Windows系統的Hyper-V不相容 禁用Device Guard或Credential Guard 1. 以管理員身份運行Windows Powershel ...
- spring mvc 初始
今天带领大家开始第一天的spring mvc学习 首先我们要下载maven然后配置IDE 然后选择new 新建项目 然后选择maven,然后选择maven的webapp 然后创建springmvc ...