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 数据处理的更多相关文章

  1. Delphi FrieDAC 大数据处理

    Delphi FrieDAC 大数据处理 大数据处理, 要用到Array DML 插入数据 先要设置插入的数据量 FQuery1.Params.ArraySize := 1000; for index ...

  2. Delphi中ComPort通信中的数据处理

    源: Delphi中ComPort通信中的数据处理

  3. delphi.指针.PChar

    此文是delphi.指针.应用姊妹篇,想细化一下PChar应用,所以有了此文. 注意: 1:此文讲的是PChar与字符串相关操作,其它方法暂不多讲. 2:由于D分开Ansi/Unicode的两种完全不 ...

  4. Delphi 时间耗时统计

    处理事情: 数据处理过程中,速度很慢,无法准确定位分析是DB问题还是客户端处理问题,所以增加计时统计日志: Delphi计时首次使用,查阅资料,予以记录: var BgPoint, EdPoind: ...

  5. [原创]DELPHI木马DIY之生成服务端

    文章作者:上帝的禁区信息来源:邪恶八进制信息安全团队(www.eviloctal.com)DELPHI木马DIY之生成服务端   我在这里就生成简单的服务端,为什么不先讲服务端的隐藏?因为我觉得生成服 ...

  6. 基于Delphi的三层数据库系统的实现方法

    基于Delphi的三层数据库系统的实现方法   1  引言 当前的数据库应用系统中,按其结构划分为两类,一类是两层结构的数据库应系统,另一类是多层结构的数据库应用系统. 两层结构的数据库应用系统包括客 ...

  7. DELPHI下的SOCK编程(转)

    DELPHI下的SOCK编程      本文是写给公司新来的程序员的,算是一点培训的教材.本文不会涉及太多的编程细节,只是简单讲解在DELPHI下进行Winsock编程最好了解的知识. 题外话:我认为 ...

  8. delphi关于文件操作集锦

        关于文件操作集锦 取得该快捷方式的指向EXE关键词:快捷方式 LNK unit Unit1; interface usesWindows, Messages, SysUtils, Varian ...

  9. DELPHI下的SOCK编程

     DELPHI下的SOCK编程(转自http://www.cnblogs.com/devcjq/articles/2325600.html) 本文是写给公司新来的程序员的,算是一点培训的教材.本文不会 ...

随机推荐

  1. nginx的基础概念

    http://tengine.taobao.org/book/index.html   算是看书笔记吧,太多了就用自己的话写一下了 nginx是以多进程 的方式来工作的,启动时会有一个master进程 ...

  2. c#将数据导出到excel中

    DataTable   dt = new BLL.T_Expiry().GetAllList().Tables[0];//查询数据 string FileName = "T_Users.xl ...

  3. jetson资料

    http://www.waveshare.net/wiki/Jetson_Nano_Developer_Kit http://www.waveshare.net/wiki/JetBot_AI_Kit ...

  4. Navicat12破解教程

    Navicat12破解教程 1.下载Navicat12 并安装,打开Navicat12 点击14天试用,关闭软件 2.下载注册机: 个人百度网盘(版本更新可能不及时):https://pan.baid ...

  5. nginx防止SQL注入规则

    $request_uriThis variable is equal to the *original* request URI as received from the client includi ...

  6. 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 ...

  7. Sqli labs系列-less-5&6 报错注入法(上)

    在我一系列常规的测试后发现,第五关和第六关,是属于报错注入的关卡,两关的区别是一个是单引号一个是双引号...当然我是看了源码的.... 基于报错注入的方法,我早就忘的差不多了,,,我记的我最后一次基于 ...

  8. 前端每日实战:73# 视频演示如何用纯 CSS 创作一只卡通狐狸

    效果预览 按下右侧的"点击预览"按钮可以在当前页面预览,点击链接可以全屏预览. https://codepen.io/comehope/pen/OEKZed 可交互视频 此视频是可 ...

  9. VMware Hyper-V不兼容

    VMware Workstation Windows系統的Hyper-V不相容 禁用Device Guard或Credential Guard 1. 以管理員身份運行Windows Powershel ...

  10. spring mvc 初始

    今天带领大家开始第一天的spring  mvc学习 首先我们要下载maven然后配置IDE 然后选择new 新建项目 然后选择maven,然后选择maven的webapp 然后创建springmvc ...