引言: 我想請問一下 是否有人知道任何 字串產生工具 因為目前要為一大堆Table產生相關的字串,那不想慢慢用取代 所以想寫個工具來產生字串 譬如 前面字串 變數 後面字串 譬如我可以輸入 select * from ???? order by 1 這樣 然後 ???? 可從資料庫讀取,或從Memo/RichEdit每行讀取 譬如Memo的Lines裡面有 (資料表清單) A B 那我產生完就應該是 select * from A order by 1 select * from B order by 1 目前有考慮使用Local資料庫...可是一直都是用SQL2K,又不太習慣說 所以最後想說,乾脆把資料表存在文字檔,使用Memo來做好了~ 所以如果有人有見過相同的點子的工具,請麻煩告知我好嗎,謝謝 或者您有任何開發上的建議,也請別吝嗇哦~

引言: 我想請問一下 是否有人知道任何 字串產生工具 因為目前要為一大堆Table產生相關的字串,那不想慢慢用取代 所以想寫個工具來產生字串 譬如 前面字串 變數 後面字串 譬如我可以輸入 select * from ???? order by 1 這樣 然後 ???? 可從資料庫讀取,或從Memo/RichEdit每行讀取 譬如Memo的Lines裡面有 (資料表清單) A B 那我產生完就應該是 select * from A order by 1 select * from B order by 1 目前有考慮使用Local資料庫...可是一直都是用SQL2K,又不太習慣說 所以最後想說,乾脆把資料表存在文字檔,使用Memo來做好了~ 所以如果有人有見過相同的點子的工具,請麻煩告知我好嗎,謝謝 或者您有任何開發上的建議,也請別吝嗇哦~

function Replace(InStr, OldStr, NewStr:String): String;
begin
  Result := StringReplace(InStr, OldStr, NewStr, [rfReplaceAll]);
end;    procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to Memo1.Lines.Count - 1 do
    Memo2.Lines.Add(Replace('Select * From ? Order By 1', '?', Memo1.Lines[I]));
end;