delphi 用TStringStream操作文件,删除文件结尾处的空字符,要这么操作,本人新手
解决方案 »
- delphi 2007或者2010是否比D7好用
- Delphi调用VC做的Dll的函数不返回,程序就死了, 我打了log发现Dll是返回了的,为什么Delphi会不往下执行了呢?谢谢!
- 请大家说说工资条打印,工资项目是动态选择的~
- 请问整型数怎样转字符串?
- 关于连接到SQL数据库的ActiveX控件出错的问题
- 请问一个用delphi编写com,用asp调用的系统,在delphi中怎样调试那个dll.
- 哪位兄台帮帮忙:一个splitter问题
- 我在做删除文件的时候,用deletefile只能删除文件,而不能删除文件夹,怎么办啊??
- 怎样判断一个字段的值是否为NULL
- @@@@@@@@@@@@@@@@@@zswang(伴水)(被黑中) 师傅在吗,元旦快乐@@@@@@@@@@@@@@@@@@@@@
- DELPHI初学者关于覆盖基类中静态方法表达语法上的一点困惑
- 有高手会用TSOAPAttachment 能帮我解决下这个问题吗
s: string;
begin s := StringSteam1.DataString;
s := TrimRight(s);
StringStream1.Clear;
StringStream1.WriteString(s);
...
var
i: integer;
k: Byte;
begin
i := 0;
Filestream1.Seek(0,soFromEnd);
repeat
Filestream1.Read(k,1);
if k <= ord(' ') then
break
else begin
i := i - 1;
Filestream1.Seek(i,soFromEnd);
end;
until Filestream1.Size + i = 0;
Filestream1.Size := Filestream1.size + i;...
if k <= ord(' ') then...
改为
if k > ord(' ') then...