Delphi-Quellcode:
type
TP =
Record
Name :
String[20];
VName :
String[20];
Straße :
String;
TelNr : Integer;
end;
...
var //globale Var
Form1: TForm1;
P :
TP;
f :
File of TP;
Button um die Datei zu öffnen + NUR auszulesen:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
AssignFile(f,edit5.text); // edit5.text:= Dateipfad
Reset(f);
end;
Button um die Datei zu öffnen + nur zu schreiben:
Delphi-Quellcode:
procedure TForm1.Button7Click(Sender: TObject);
begin
assignfile (f,Edit5.Text) ;
rewrite(f)
end;
Button um die Datei zu schreiben:
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
begin
P.Name:=Edit8.Text;
P.VName:=Edit9.Text;
P.Straße:= Edit10.Text;
P.TelNr:=IntToStr(Edit11.Text);
begin
write (f,P);
end;
Button um die Datei zu schließen:
Delphi-Quellcode:
If FileExists(edit5.text) then
begin
CloseFile(f);;
end;
Das sind so die Funktionen des Programms...der Button zum "Rückwärtslesen" ist im Prinzip das gleiche wie Vorwärtslesen, nur dass ich dabei die filepos-2 nehme um in der
DB auf den Eintrag davor zu kommen.