1:
2:
3:
4:

herr bla
frau kA
mööp 
etc					

1:

herr blafrau kAmööp etc					

1:

Image1.picture.loadfromfile('D:\Schlüssel\Lila Hintergrund.bmp');					

1:

Image1.Picture.LoadFromFile(IncludeTrailingBackslash(ExtractFilePath(Application.ExeName))+'Lila Hintergrund.bmp');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

Type A = record
   teacher : String[25]; // wird wohl keiner namen haben die über 25 zeichen raus gehen oder ?
   key : array[1..5] of String[15]; // 1-5 schlüssel, wenn halt kein 2.3.4.5. schlüssel vorhanden is halt leer lassen ;)
   sig : String[3]; // bei uns gibts keine längern kürzel(habs mal sig genannt) als 3 zeichen
end;

var f : file of A;
    group : A;
//...
//... blablabla
//...

group.teacher := Edit??.Text; // Edit?? soll die editbox für den lehrer sein halt was du da hast, wo du den ausließt
group.key[1] := Edit??.Text; // schlüssel no.1
if Edit.??.Text<>'' then // überprüft ob das eingabefeld für den 2. schlüssel überhaupt ausgefüllt wurde
  group.key[2] := Edit??.Text; // weist den text aus dem eingabefeld dem 2. key-array element zu
if Edit.??.Text<>'' then // überprüfung wie oben...
  group.key[3] := Edit??.Text;
// ...
group.sig := Edit??.Text // eingabe des Kürzels
// ...

// ab hier wird gespeichert ;)

AssignFile (f,(IncludeTrailingBackslash(ExtractFilePath(Application.ExeName))+'Save.dat')); // weist f die Datei zu
if filesize(f) = 0 then // überprüft ob die datei leer ist
  begin
   rewrite(f); // die datei wird erstellt
   write(f,group); // schreibt die daten von "group" in die datei
  end 
else
  begin
   seek(f,filesize(f)); // setzt den zeiger auf das letzte element, damit keine alten daten überschrieben werden
   write(f,group); //  schreibt die daten von "group" in die datei
  end;
closefile(f); // schließt die datei

// lesen der daten aus der datei

AssignFile (f,(IncludeTrailingBackslash(ExtractFilePath(Application.ExeName))+'Save.dat')); // weist f die Datei zu
reset(f) // setzt den zeiger auf das 0. element (also den anfang ^^)
while not eof(f) do // bis zum ende der datei, also bis JEDES gespeichertes element mal durch ist ^^
  begin 
   read(f,group); // liest die daten von der datei und gibt sie in den group-record
   //... immer dann die daten aus group irgendwo reinlagern, wie schon vorgeschlagen lehrer in ne combobox o.Ä.
  end;
closefile(f); // schließt die datei

// ... usw.					

1:

Herr Meier|MR|Informatikraum					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.ReadFromFile;
var
  i:Integer //Zählervariable
  lehrer,abkuerzung,schluessel:String; //Stringvariablen für die Zeilenteile
  zeile:String;//Ganze Zeile
  abschnitt:Integer;  /0 bei Lehrer, 1 bei Abkürzung, 2 bei Schlüssel
begin
  [...] //Datei öffnen,...
  while not EOF(Datei) do begin //Solange nicht EOF
    ReadLn(datei,zeile);
    abschnitt:=0;
    lehrer:='';
    abkuerzung:='';
    schluessel:='';
    for i:=1 to Length(zeile) do begin
      if zeile[i]='|' then Inc(Abschnitt)  //Falls Abschnittsseparator
      else begin
        if Abschnitt=0 then lehrer:=lehrer+zeile[i] else
         if Abschnitt=1 then abkuerzung:=abkuerzung+zeile[i] else
          schluessel:=schluessel+zeile[i];
      end;
    end;
    //Hier müssen dann die Inhalte der Variablen lehrer, abkuerzung und schluessel in den Feldern gespeichert werden.
  end;
  [...] //Datei schließen, ...
end;