17-11-2011, 02:16 AM
السلام عليكم
توجد عدة طرق
استعمل الدالة pos
وافحص عند عملية الإدخال
او
توجد عدة طرق
استعمل الدالة pos
وافحص عند عملية الإدخال
او
كود :
function DDuplicates(S: string): string;
var
ST: TStringList;
begin
ST := TStringList.Create;
try
ST.Sorted := True;
ST.Duplicates := dupIgnore;
ST.Text := S;
Result := ST.Text;
finally
ST.Free;
end;
end;