我知道這很新手, 但我就是卡住 1. 參數宣告 2. 副程式呼叫不能 , 請大大指點一下 
, 主要的目的是從 DB1叫出 篩選過後的record , 有三個fields , 再呼叫副程示,Loop丟入
到project2的table裡 , 紅色標的是我不知道怎麼寫,NIL則是我主管點我一下就走了,我也
不太清楚這寫法 ,請幫幫我吧 thx

procedure TForm1.Button1Click(Sender: TObject);
var T_A , T_B , T_C : string;
procedure TForm1.Tmp_call(Sender: TObject);
begin
WITH QUERY2 DO
BEGIN
SQL.ADD('INSERT INTO PROJECT2 (A,B,C)');
SQL.ADD('VALUES(:F1,:F2,:F3)') ;
END ;
end;
Begin

WITH QUERY1 DO
BEGIN
SQL.Clear ;
SQL.Add('SELECT * FROM PROJECT1 ' ) ;
PREPARE ;
OPEN ;
WHILE NOT EOF DO
BEGIN
T_A := QUERY1.FIELDBYNAME('A').ASSTRING;
T_B := QUERY1.FIELDBYNAME('B').ASSTRING;
T_C := QUERY1.FIELDBYNAME('C').ASSTRING;
Tmp_call (NIL) ;
NEXT ;
END ;
END;

End;


--- 謝 2樓 , 我把變數修正後 , COMPILE後 , 會 SHOW ' Unsatisfied forward or external declaration: 'TForm1.Tmp_call'
是否我需要將變數 T_A , T_B , T_C 指向誰 ? , 以及 NIL不太清楚這寫法 .. THX

編輯記錄

1.您應該有同事,臉皮厚一點問一下應該就可以了
2.建議您去買幾本delphi的入門書來翻
3.解答在這邊 http://www.vc-delphi.info/Delphi-SQL_cjczc.htm <-請看第二樓

Example Code:^_^
[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var T_A , T_B , T_C : string;
procedure Tmp_call;
begin
Query2.SQL.Clear;
Query2.SQL.ADD('INSERT INTO PROJECT2 (A,B,C)');
Query2.SQL.ADD('VALUES(:F1,:F2,:F3)');
Query2.ParamByName('F1').AsString:=T_A;
Query2.ParamByName('F2').AsString:=T_B;
Query2.ParamByName('F3').AsString:=T_C;
Query2.ExecSQL
end;
Begin
Query1.SQL.Clear ;
Query1.SQL.Add('SELECT * FROM PROJECT1 ' ) ;
Query1.OPEN ;
WHILE NOT Query1.EOF DO
BEGIN
T_A := QUERY1.FIELDBYNAME('A').ASSTRING;
T_B := QUERY1.FIELDBYNAME('B').ASSTRING;
T_C := QUERY1.FIELDBYNAME('C').ASSTRING;
Tmp_call;
Query1.NEXT ;
END;
End;

[/code]

------
What do we live for if not to make life less difficult for each other?