var   Str : String; With Query1 do begin   Open;   While NOT Eof do   begin     xxx     xxx     Str := FieldByName('username').AsString;     Delete(Str, Pos('*', Str), 1);    <====問題 Next; end; Close; end; 想請教一下各位，該如何在With當中，呼叫同名之函數，使Delphi判斷正確？

加单元名称限制 System.Delete(Str, Pos('*', Str), 1); 久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人