Na razie napisałem coś takiego:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
ListBox1: TListBox;
ListBox2: TListBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject); //procedura do przycisku WYSWIETL NIEPOSORTOWANY PLIK
var
PLIK: TextFile; //zmienna do pliku
S: String; //zmienna do zawartosci
begin
assignFile(PLIK, 'przedsortowaniem.txt'); //przypisanie zmiennej
if not FileExists('przedsortowaniem.txt') Then //sprawdzenia czy plik istnieje
begin
ShowMessage('Taki plik nie istnieje!'); //wyrzuca wiadomosc ze plik nie istnieje
end
else
begin
listBox1.Items.Clear(); // zabezpieczenie przycisku aby nie dodawalo ponownie zawartosci pliku
AssignFile(PLIK, 'przedsortowaniem.txt'); //zmienna do pliku jesli plik w folderze istnieje
reset(PLIK); //reset pliku
while not Eof(PLIK) do
begin
readln(PLIK, S); //odczyt pliku
listBox1.Items.Add(S); //wyswietla w TListBoxie dane z pliku
end;
end;
end;
procedure TForm1.Button3Click(Sender: TObject); //procedura do przycisku POSORTUJ PLIKI
var PLIK : file of byte;
var tablica:array[1..100]of byte;
var i: integer;
begin
AssignFile(PLIK, 'przedsortowaniem.txt');
reset(PLIK);
for i := 1 to 100 do
AssignFile(PLIK, 'przedsortowaniem.txt');
reset(PLIK);
end;
procedure TForm1.Button2Click(Sender: TObject); //procedura do przycisku WYSWIETL POSORTOWANY PLIK
var
PLIK2: TextFile; //zmienna do pliku
S: String; //zmienna do zawartosci
begin
assignFile(PLIK2, 'posortowaniu.txt'); //przypisanie zmiennej
if not FileExists('posortowaniu.txt') Then //sprawdzenia czy plik istnieje
begin
ShowMessage('Taki plik nie istnieje!'); //wyrzuca wiadomosc ze plik nie istnieje
end
else
begin
listBox2.Items.Clear(); // zabezpieczenie przycisku aby nie dodawalo ponownie zawartosci pliku
AssignFile(PLIK2, 'posortowaniu.txt'); //zmienna do pliku jesli plik w folderze istnieje
reset(PLIK2); //reset pliku
while not Eof(PLIK2) do
begin
readln(PLIK2, S); //odczyt pliku
listBox2.Items.Add(S); //wyswietla w TListBoxie dane z pliku
end;
end;
end;
end.