引言: 做一個小實驗,想知到如何swap可以較快 procedure swap(a,b:string);//耗費 214 procedure swap(var a,b:string);//耗費 173 請問有高手知道更快的方法嗎?例如直接作位址的交換我不會請指導 procedure TForm1.Button1Click(Sender: TObject); procedure swap(var a1, b1:string); var c:string; begin c:=a1; a1:=b1; b1:=c; end; var a,b:string; i:integer; t1,t2:double; begin a:='a'; b:='b'; t1:=gettickcount; for i:=0 to 1000000 do begin swap(a,b); end; t2:=gettickcount; showmessage(floattostr(t2-t1)); end;

suda 你好: 試試看這樣有沒有比較快呢??(只是演算法，程式碼麻煩你自己寫)

a = a + b 
b = a - b
a = a - b

引言: 不好意思!我指的是資料的交換，有可能是兩個很大的字串或變數，因為資料大或迴圈多的時候會變慢，例如資料排序． 我看了之前的一些文章，有前輩提到交換兩個變數的位址，可是後來沒有下文了，很可惜． 希望有人可以提供如何傳址交換的方向或拍其他可以加快的方法，

suda 你好: 既然已經有了演算法，剩下的~~就看個人的應用了 > --

引言: 謝謝您指導方向 被點通了真是神清氣爽 我已可以作變數的交換,接下來要試試位址的交換.

suda 你好: 能不能夠麻煩你試完以後，把結果貼上來 分享給大家知道，用哪一種方法最快呢?? --

引言: 因為我還不是很了解,只能提供簡單的範例,看看這程式是傳值快還是傳址快? 先告訴大家答案,是傳值快,我搞不慬.在integer時傳址快,但是string傳值卻怏過傳址一倍的速度,真神奇 procedure TForm1.Button1Click(Sender: TObject); var t1,t2:integer; sa,sb:string; procedure SwapstrByValue(a,b:string); var i:integer; c:string; begin for i:=0 to 10000000 do begin c:=a; a:=b; b:=c; end; end; procedure SwapStrByVar(var a,b:string); var i:integer; c:string; begin for i:=0 to 10000000 do begin c:=a; a:=b; b:=c; end; end; begin sa:='aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'; sb:='bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'; t1:=gettickcount; swapstrByvalue(sa,sb); t2:=gettickcount; ListBox1.Items.add('SwapStrByValue:' floattostr(t2-t1)); t1:=gettickcount; swapstrByvar(sa,sb); t2:=gettickcount; ListBox1.Items.add('SwapStrByVar:' floattostr(t2-t1)); end; 我試過交換位址,可是結果都不變,是不是交換位址沒有意義,以下的語法決對是錯的,只是我想表達想法 a:='很大的字串'; b:='也是很大的字串'; c:=@a; @a:=@b @b:=par(c); RaynorPao 前輩,可否有相關資料說明delphi資料傳遞,因為我愈深入愈覺得有趣

引言: 因為我還不是很了解,只能提供簡單的範例,看看這程式是傳值快還是傳址快? 先告訴大家答案,是傳值快,我搞不慬.在integer時傳址快,但是string傳值卻怏過傳址一倍的速度,真神奇

var s:string;
begin
  s:='A real long string...';
  ShowMessage(IntToStr(SizeOf(s)));
end;