procedure TForm4.ImportBClick(Sender: TObject);
var s_pfad:
string;
xx:integer;
begin
s_pfad:=GetCurrentDir;
if M_Import.ReadOnly=true
then
begin
M_Import.
ReadOnly:=false;
M_Import.Clear;
EreignissM.Lines.Add('
Datenimport wurde aktiviert.');
end else
begin
//Daten einlesen
//ISBN einlesen...
for xx:=0
to M_Import.Lines.Count-1
do
begin
if (Pos('
ISBN',M_Import.Lines.Strings[xx])>0)
then
E_ISBN.Text := StringReplace(M_Import.Lines.Strings[xx],'
ISBN: ', EmptyStr,[rfReplaceAll]) ;
if (Pos('
Titel',M_Import.Lines.Strings[xx])>0)
then
E_Titel.Text := StringReplace(M_Import.Lines.Strings[xx],'
Titel: ', EmptyStr,[rfReplaceAll]) ;
if (Pos('
Verfasser',M_Import.Lines.Strings[xx])>0)
then
E_Verfasser.Text := StringReplace(M_Import.Lines.Strings[xx],'
Verfasser: ', EmptyStr,[rfReplaceAll]) ;
end;
{ for xx:=0 to M_Import.Lines.Count-1 do
begin
if (Pos('ISBN',M_Import.Lines.Strings[xx])>0) then
E_ISBN.Text := StringReplace(M_Import.Lines.Strings[xx],'ISBN: ', EmptyStr,[rfReplaceAll]) ; //mal gucken was das macht...(von DB!) //funkt!!! supper!
//ISBN ist da!
//Titel einlesen...
if (Pos('Titel',M_Import.Lines.Strings[xx])>0) then
E_Titel.Caption := StringReplace(M_Import.Lines.Strings[xx],'Titel: ', EmptyStr,[rfReplaceAll]) ;
//Titel ist auch da!
//Verfasser...
if (Pos('Verfasser',M_Import.Lines.Strings[xx])>0) then
E_Verfasser.Text := StringReplace(M_Import.Lines.Strings[xx],'Verfasser: ', EmptyStr,[rfReplaceAll]) ;
end; }
//Verfasser auch vorhanden.
//\Daten Einlesen
//Mitteilung schreiben
EreignissM.Lines.Add('
Buch erfolgreich eingetragen!');
//\Mitteilung schreiben
//ursprung herstellen + Hilfe Laden
M_Import.
ReadOnly:=true;
M_Import.Clear;
Assignfile(F,s_pfad+Form1.s_PathDelimiter+'
Dokumente'+Form1.s_PathDelimiter+'
Hilfe'+Form1.s_PathDelimiter+'
Import.txt');
Reset(F);
while not eof(F)
do begin
Readln(F, S);
M_Import.Lines.add(S);
end;
if (IOResult<>0)
then begin M_Import.lines.add('
Dateizugriffsfehler!'); M_Import.Lines.Add('
Hilfe konnte nicht geladen werden!');
end else
EreignissM.Lines.Add('
Datenimport wurde deaktiviert.');
CloseFile(F);
//\ursprung herstellen + Hilfe Laden
end;
end;