Einlesen aus Memo in Editfelder. [Bibliotheksverwaltung]

[Teekeks]

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