造成這個問題的原因，是因為我在fillchar(p, sizeof(p), 0)，p是一個pointer的型態，因為我不知道sizeof()的涵數是取得變數的type，所以怎麼取都是只4bytes，所以導致輸入長取超過這個長度時，會導致長度後面的字母仍會留著，不知我這個觀念是否有錯(因為我覺的如果用sizeof(p)就取出4bytes，那麼長度應該是32bit才對，可是我打10個字母就有問題了)，請大家指導一下，謝謝。

原程式碼如下(希望大家給點觀念上的指導)：

[code delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Button1: TButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
p,p1:pointer;
h, h1:hwnd;
implementation
{$R *.dfm}
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if h <> 0 then
closehandle(h);
if h1 <> 0 then
closehandle(h1);
if p <> nil then
unmapviewoffile(p);
if p1 <> nil then
unmapviewoffile(p1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:pchar;
i:integer;
begin
s := pchar(trim(memo1.Lines.Text));
copymemory(@(p^), s, length(s));
//memo1.GetTextBuf(p, 255);
h1 := OpenFileMapping(File_MAP_ALL_ACCESS, False, pchar('tester'));
if h1 = 0 then
application.Terminate;
p1 := mapviewoffile(h1, file_map_all_access, 0,0, 0);
if p1 = nil then
application.Terminate ;
memo2.Lines.Clear ;
memo2.Lines.Add(strpas(p));
//FillChar(p1^, Length(s), 0);FillChar(p1^, Length(s), 0);
FillChar(p1^, Length(s), 0);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
h := createfilemapping($FFFFFFFF, nil, page_readwrite, 0, sizeof(p), pchar('tester'));
if h = 0 then
application.Terminate ;
p := mapviewoffile(h, file_map_all_access, 0,0,0);
if p = nil then
application.Terminate ;
end;
end.

[/code]

------
DELPHI初學者

編輯記錄

拜託各位!
既然上來論譠發表討論, 如有答案還盼不吝公佈解決方法, 或許別人也有相同的狀況, 謝謝!