26-03-2009, 03:08 PM
السلام علكم
بالتوفيق ,,
كود :
procedure TForm1.Button1Click(Sender: TObject);
Var DataList : TStringList;
SFilePath : String;
begin
If Not PromptForFileName(SFilePath,'Text files (*.txt)|*.txt','','Select your project file','',False) Then Exit;
Try
DataList:=TStringList.Create;
DataList.LoadFromFile(SFilePath);
DataList.Sort;
DataList.SaveToFile(SFilePath);
Finally
DataList.Free;
End;بالتوفيق ,,
I'M Fly Like A G6