Kako da dopunim ovaj unit:
unit untListaRijeci;
interface
type
TKnoopPtr = ^TKnoop;
TKnoop = record
sWoord: String;
kpNextKnoop: TKnoopPtr
end;
procedure CitajRijeci (sFileName: String);
{ Ucitava rijeci iz jednog file i dodaje ovu u listu rijeci, ali poslije da je alfabetski sortirana.}
procedure SacuvajRijeci (sFileName: String);
{ Dodaje sve rijeci iz liste rijeci u file}
implementation
var
kpFirst: TKnoopPtr = NIL;
procedure Sortiranje (sRijec: String);
{ Rijec <sRijec> se dodaje na pravo mjesto (alfabetski sortirano) u listu rijeci }
var
..............................................................
begin
.............................................................
end;
procedure CitajRijeci (sFileName: String);
var
tFile: TextFile;
kpNovoKnoop: TKnoopPtr;
begin
AssignFile (tFile, sFileName);
Reset (tFile);
while not Eof (tFile)
do begin
...............................................................
end;
CloseFile (tBestand)
end;
procedure SacuvajRijeci (sFileName: String);
var
tFile: TextFile;
begin
AssignFile (tFile, sFileName);
Rewrite (tFile);
.................................................................
CloseFile (tBestand)
end;
end.
Ako ne koristim pointer onda napravim bez problema.
Primjer sa array (bez koristenja pointera) za procedure SacuvajRijeci:
procedure SacuvajRijeci (sFileName: String);
var
tFile: TextFile;
begin
AssignFile (tFile, sFilename);
Rewrite (tFile);
iTeller := 0;
for iIndex := 0 to iAantal -1
do
Write(tFile, arrKnoop[iIndex]);
CloseFile (tFile)
end;
Unit mora sa pointer-om i bez array-as.
Ako neko moze da mi pomogne bila bi mu zahvalna.