Einlesen aus Memo in Editfelder. [Bibliotheksverwaltung]

[Teekeks]

@Luckie:es wäre komisch und nicht mit dem sinn dieser Bibliothek übereistimmend wen man sich von der Deutschen Nationalbibliothek keine infos holen dürfte...

@DeddyH: ja sind.
@soulies: also: hier ist noch n bissl code...

Delphi-Quellcode:

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;

wen jemand einen Fehler findet ist er besser als ich (seit ihr sowieso alle ^^ )
gruß Teekeks