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

Question

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

Answer 1

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

Answer 2

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

Answer 3

从字符串中删除，假如字符串为'a1232-b-c'呢？
如何删除所有的'-'字符呢？更进一步，字符串是任意的，要删除所有的'-'字符，如何做？

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

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;

Answer 9

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

Answer 10

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

Answer 11

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

Answer 12

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