Ach ist jetzt auch egal. Ich habe nämlich den Fehler gefunden! (um genau zusein mein Vater
)
jetzt sieht der Code so aus:
Delphi-Quellcode:
data:=M_import.Text;
AssignFile(F1,'/home/peter/Lazarusprojekte/Bibliothek/Data/import.txt');
{$i-}
Rewrite(F1);
{$I+}
if (IOResult<>0) then ShowMessage('Dateizugriffsfehler!')
else begin
WriteLn(F1,data);
CloseFile(F1);
end;
M_Import.Clear;
Reset(F1);
while not eof(F1) do begin
Readln(F1, s1);
if (Pos('ISBN',s1)>0) then
E_ISBN.Text := StringReplace(s1,'ISBN: ', EmptyStr,[rfReplaceAll]) ;
if (Pos('Titel',s1)>0) then
E_Titel.Text := StringReplace(s1,'Titel: ', EmptyStr,[rfReplaceAll]) ;
if (Pos('Verfasser',s1)>0) then
E_Verfasser.Text := StringReplace(s1,'Verfasser: ', EmptyStr,[rfReplaceAll]) ;
end;
if (IOResult<>0) then ShowMessage ('Dateizugriffsfehler!');
CloseFile(F1);
weil: Das Memo hat nämlich ein Problem mit umlauten wie 'Ä'(wie beim Titel) und alles danachfolgende wurde wie folgend automatisch geändert:
aus
Zitat:
'Verfasser: Franzbonenkamp, Marco
Ausgabe: 1. Aufl.'
wurde
Zitat:
'rfasser: Franzbonenkamp, Marco'+#10+'A'
'sgabe: 1. Aufl.'+#10+'V'
Deswegen konnte er ISBN und so nicht finden^^
Aus diesem grund speichere ich das ganze einfach in ner *.txt und lese das ganze danach zeile für Zeile wieder ein.
Ich finde das das dann auch leichter verständlich ist.
Also: DANKE für eure Hilfe (speziell dir DeddyH
)
Mein problem ist gelößt!!
gruß Teekeks