//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]) ;
//mal gucken was das macht...(von DB!)
end;
//funkt!!! supper!
//ISBN ist da!
//Titel einlesen...
for xx:=0
to M_Import.Lines.Count-1
do
begin
if (Pos('
Titel',M_Import.Lines.Strings[xx])>0)
then
E_Titel.Text := StringReplace(M_Import.Lines.Strings[xx],'
Titel: ', EmptyStr,[rfReplaceAll]) ;
//das hier wird eingetragen alles andere nich :-(
end;
//Titel ist auch da!
//Verfasser...
for xx:=0
to M_Import.Lines.Count-1
do
begin
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.