Z zhaoxf Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-20 #4 var strlistFile: TStringList; begin strlistFile := TStringList.Create; strlistFile.LoadFromFile('a.txt'); if (strlistFile.Count > 0) then strlistFile.Delete(0); strlistFile.SaveToFile('a.txt'); strlistFile.Free; end;
var strlistFile: TStringList; begin strlistFile := TStringList.Create; strlistFile.LoadFromFile('a.txt'); if (strlistFile.Count > 0) then strlistFile.Delete(0); strlistFile.SaveToFile('a.txt'); strlistFile.Free; end;
