初级问题：如何删除字符串中指定的字符？

[lovelypengpeng]

例如删除'2003-03-24'中的字符'-'成为'20030324'?
谢谢

[zhyanger]

最苯的方法
copy（'2003-03-24'，1，4）+copy（'2003-03-24'，6，2）+copy（'2003-03-24'，9，2）
用Delete 函数可以吧

[killers100]

呵呵，这个问题属于多解问题。
如果我来写，我会这样写。
Inttostr(YearOf(Date))+IntToStr(MonthOf(Date))+IntToStr(DayOf(Date));

[lovelypengpeng]

从字符串中删除，假如字符串为'a1232-b-c'呢？
如何删除所有的'-'字符呢？

更进一步，字符串是任意的，要删除所有的'-'字符，如何做？

[ehom]

while Pos('-',Str)<>0 do
Str:=Delete(Str,Pos('-',Str),1);

[citytramper]

var sour,dest:string;

dest:=stringreplace(sour,'-','',[rfReplaceAll])

[jy_1201]

ehom的方法，很好

[ehom]

while Pos('-',Str)<>0 do
Delete(Str,Pos('-',Str),1);

[xzq111]

function getstring(Srcstring:string):string;
var
tmpstr:string;
begin
tmpstr:='';
while pos('-',Srcstring)<>0 do
begin
tmpstr:=tmpstr+copy(Srcstring,1,pos('-',Srcstring)-1);
delete(Srcstring,pos('-',Srcstring)+1,length(Srcstring)-pos('-',Srcstring));
end;
result:=tmpstr;
end;

[wlw88]

ehom(？！) 兄说的非常的对！^_^

[duncan_nick]

delete (s:string;index,count:integer):string这个函数从一个串删除一个子串

[core_blood]

查找'-' 在字符串str中的位置

[bai11]

最笨之方法
tmp:='';
for i:=0 to length(str)
if str[i] <> '-'
then tmp:=tmp+str[i];

[bai11]

pos最好

[lovelypengpeng]

我觉得 citytramper(从开始到现在) 的方法比较好

[wrwr8111]

Pos('-',Str)什么意思?