var Buffer: array [0..100] of char; Buffer1: array [0..100] of byte; begin Buffer:='123'; //ok Buffer1:='123'; //錯誤 end; 請問 byte 的陣列變數該如何指定其值 ?? 發表人 - bruce0211 於 2004/01/24 17:17:17

您好:  

procedure TForm1.Button1Click(Sender:TObject);
var
  i,x,y   : Integer;
  Pal     : array[0..255,0..2] of Byte;
  Pixels  : array[0..255,0..19] of Byte;
......    begin
  for i:=0 to 255 do begin
    Pal[i,0]:=$FF;
    Pal[i,1]:=i;
    Pal[i,2]:=0;
  end;
  for y:=0 to 19 do begin
    for x:=0 to 255 do begin
      Pixels[x,y]:=x;
    end;
  end;
 ......

~~應無所住而生其心~~

你好：
  你也可以利用記憶體操作函式處理。    var
  Buffer1: array [0..10] of byte;
  s : string;      move ('123', Buffer1, 3);

長官 我的 Buffer1: array [0..100] of byte 內容並不規則 所以不能用迴圈來填值 雖然我知也一個BYTE 一個 BYTE 的填入 不過我想應該有更聰明的方法 可以將'THIS IS A BOOK , THAT IS A PEN' 填入 Buffer1 中 ....

引言:

你好：
  你也可以利用記憶體操作函式處理。    var
  Buffer1: array [0..10] of byte;
  s : string;      move ('123', Buffer1, 3);

果然可以用,不過不能使用變數

將'THIS IS A BOOK , THAT IS A PEN' 填入 Buffer1 中 .... 法一

var S:String;
S := 'THIS IS A BOOK , THAT IS A PEN';    for i := 1 to Length(S) do
 Buffer1[i-1] := Byte(S[i]);    

法二

var S: String;
S := 'THIS IS A BOOK , THAT IS A PEN';    Move(S[1],Buffer1[0],Length(S)*SizeOf(Byte));    

又再試了一下,使用偷吃步可以解決變數使用的問題 但有正統又好用的方法嗎 ?? //--------------------------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); var Buffer1: array [0..100] of byte; s:string; begin s:='THIS IS A BOOK , THAT IS A PEN'; move (s[1], Buffer1, Length(s)); ShowMessage(char(Buffer1[2])); end;

引言: 將'THIS IS A BOOK , THAT IS A PEN' 填入 Buffer1 中 .... 法一

var S:String;
S := 'THIS IS A BOOK , THAT IS A PEN';    for i := 1 to Length(S) do
 Buffer1[i-1] := Byte(S[i]);    

法二

var S: String;
S := 'THIS IS A BOOK , THAT IS A PEN';    Move(S[1],Buffer1[0],Length(S)*SizeOf(Byte));    

感謝長官,但我覺得應有更快速簡潔的方法 ...

引言: 將'THIS IS A BOOK , THAT IS A PEN' 填入 Buffer1 中 .... 法一

var S:String;
S := 'THIS IS A BOOK , THAT IS A PEN';    for i := 1 to Length(S) do
 Buffer1[i-1] := Byte(S[i]);    

法二

var S: String;
S := 'THIS IS A BOOK , THAT IS A PEN';    Move(S[1],Buffer1[0],Length(S)*SizeOf(Byte));    

感謝長官,但我覺得應有更快捷的方法(不使用Move)

這可不是偷吃步 同時也沒有所謂的正統方式...就是 Move(S[1],Buffer1[0],Length(S)*SizeOf(Byte)); Move 必須知道你的記憶體位置 String 與 Dynamic array 因為都使用了兩次間接記憶體參考 所以不能直接 pass 給 move S 的值代表一個紀錄著 S[1] 記憶體位置的值 S[1] 的值代表著一個指向 "T" 記憶體位置的值 Move 所要的是指向 "T" 記憶體位置的值，所以應該用 S[1] 同理 var ad: array of xxxx; ad 代表的是一個指向紀錄著 ad 開頭記憶體位置的直之位置，即是 ad[0] 的記憶體位置值 而 ad[0] 則是紀錄著第一筆值的記憶體位置之變數代表 所以當用 Move 時應該 pass ad[0] 同時要注意若是使用的是 static array 則因位址使用了一次間接參考 所以可以直接 pass 給 Move var ad1: array[0...100] of xxx Move(ad1......) 因為 ad1 此時是紀錄著第一筆值的記憶體位置之變數代表，與 ad1[0] 相同 所以此時用那個都可以 但是為避免在大量程式時混淆不清，最好都用 ad[0] 因為永遠都對 不過若是起點不為 0 則要以起點為準 如 var ad2: array[20..30] of xxx 則 Move(ad2[20],......) or Move(ad2,.....)

引言: 感謝長官,但我覺得應有更快捷的方法(不使用Move)

恩！是有不使用 Move 的方式，也不使用回圈 只是這樣在本質上就不一樣了，因為妳是要用另外一個記憶體空間來記錄 所以一定會牽涉到記憶體複製與搬移的問題，所以會用到回圈或是 Move 指令 同時 Move 應該是最快的記憶體複製指令了 但是若是妳不需要另一份記憶體位置來處理你的數值 那就可以不用到回圈或是 Move 指令 直接用 PChar or Pointer，但是這種方式在 .Net 下是 unsafe 的方法 所以就現在的計算機設計上若要使用第二份資料來處理，是沒有更好的方式了，同時也沒有所謂"更好的方式"，因為"他"就是這樣設計的， 至於若是有更快捷的方式，也不過是一個別人幫妳完成的指令，而該指令內一定會用到 回圈或是 Move，只是妳看不見而已，並不代表沒有用到 Delphi 常常給人一個迷思 "是否有更快捷的方式？" 因為很多事 Delphi 幫我們作掉了！同時提供一個簡單的指令來代表！所以我們會產生 "Delphi" 真好用的想法，同時也會想寫簡潔的程式，但是簡潔的程式並不一定好，不一定快，只是程式碼簡短而已 所謂好的程式是 1.執行快速 2.程式碼的編譯結果小，即是佔用磁碟空間小 而簡潔的程式碼不一定等於 1. 與 2. 所以除非更改 PC 設計原理，否則是達不到妳的願望 "不使用回圈或是 Move " 在說若是有，為何 Delphi 自己本身不用 ？ 而使用 Copy on Write 的方式?

syntax大大這幾篇回應大概是ktop猴年開春最漂亮的答客問 論耐性,論專業,論文筆在在都是優秀不可多得的表現... 受教了,小第一鞠躬 再鞠躬 三鞠躬 有syntax大大如此,實在是程式設計領域中的一個典範啊!!! 發表人 - hahalin 於 2004/01/24 18:05:25

長官 包歉 以下 與題目無關 syntax與ccchen還真正是 2人 優秀不可多得 精彩精彩