引言: 如何將以下改成DELPHI寫法謝謝 A_1=清空SPACE(40字); B=:Edit1.test; A_1欄位=(B-SPACE(40字)); A_1欄位=(計算B前面有沒有空白有自動補SPACE) B-SPACE(40字));

function Spaces(scount: integer): string;
         var tmpstr: string;
begin
     result:= '';
     tmpstr:= '';
     if scount<=0 then exit;
     repeat
        tmpstr:= tmpStr chr(32);
        dec(scount);
     until scount<=0;
     result:= tmpstr;
end;    

procedure TForm1.Button1Click(Sender: TObject);
var
  A_1 : String;
begin
  A_1 := StringOfChar(' ',40);
end;

引言: Hi 20052020,

procedure TForm1.Button1Click(Sender: TObject);
var
  A_1 : String;
begin
  A_1 := StringOfChar(' ',40);
end;

字串如何相減 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ---------------------------------- < face="Verdana, Arial, Helvetica"> 請問以上該如何加入資料庫 謝謝

procedure TForm1.Button3Click(Sender: TObject);
begin
  Database1.Connected := True;
  Table1.Close;
  Table1.Open;
  Table1.First;
  while not Table1.Eof do
    begin
      Table1.Edit;
      Table1.FieldByName('S').AsString := Copy(Table1.FieldByName('S').AsString   StringOfChar(' ',Table1.FieldByName('S').Size),1,Table1.FieldByName('S').Size);
      Table1.Post;
      Table1.Next;
    end;
  Table1.Close;
  Database1.Connected := False;
end;

    dBIII  .dbf 的 欄位 如果是 char 型態
  
  您只要 Append / Post 不要填任何值
  
  就是以空白儲存.