25-03-2009, 05:04 PM
فقط أظف هده الدالة :
يمكنك التعديل على مكان الحفظ فقط أنا عملتها تعدل على الملف في حد ذاته :
كود :
Procedure LoadFileS(FilePath : String);
Var List:TStringList;
Begin
List:=TStringList.Create;
List.LoadFromFile(FilePath);
List.Sorted:=True;
List.SaveToFile(FilePath);
List.Free;
End;يمكنك التعديل على مكان الحفظ فقط أنا عملتها تعدل على الملف في حد ذاته :
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadFileS('1.txt');
end;I'M Fly Like A G6