Hallo, ich habe mal ein Programm geschrieben, dass mit Textdateien arbeitet. Jedes Element bekommt dabei eine Nummer. Darüber suche ich auch. Wie kann man das Umschreiben, sodass man über Vor- und Nachname suchen kann? ich kriege das einfach nicht hin. Ich hänge das Programm dann mal an

program zzzzzzzzzz; uses crt, dos; type TAltNeu= (neu,alt); Telefonbuch = record Name, Vorname: string[20] ; Telefonnummer:integer;end; TElement=Telefonbuch; Tdatei= File of TElement; var datei: Tdatei ; function dateioeffnen( var datei:tdatei;altneu:TAltNeu):boolean; var pfad: string; begin write('Pfad:'); readln(pfad); {$I-} assign(datei,pfad); if altneu=neu then rewrite(datei) else reset(datei); {$I+} dateioeffnen:= IOResult=0;

end;

function startok (var datei:tdatei) :boolean ; var ch:char; begin clrscr; writeln(utf8decode('Wählen Sie:')); writeln(utf8decode('N) für neue Datei')); writeln(utf8decode('B) für bestehende Datei')); writeln(utf8decode('A) für Ende')); repeat ch:=readkey; until ch in ['a','A','n','N','b','B']; case ch of 'n','N': startok:= dateioeffnen(datei,neu) ; 'b','B': startok:= dateioeffnen(datei,alt); 'a','A':startok:=false; end ;

end; procedure Elementausgabe (element:telement); begin with element do begin write(FilePos(datei):3,':'); writeln(Vorname,',',Name); writeln(' ',Telefonnummer); end; end; procedure ElementEingabe (var element:telement); begin with element do begin write('Name:'); readln(Name); write('Vorname:'); readln(vorname); write('Telefonnummer:'); readln(telefonnummer); end; end;

procedure Aendern(var datei:tdatei); var ch:char; nummer:integer; ELEMENT:TElement ;

begin clrscr; write(utf8decode('Welche Daten ändern?')); readln(nummer); dec(nummer); if nummer<FileSize(datei) then begin seek(datei,nummer); read(datei,element); Elementausgabe(element); writeln(utf8decode('Dieses Element ändern (J/N)?')); ch:=readkey; if ch in ['j','J'] then begin elementeingabe(element); seek(datei,nummer); write(datei,element); end end; end;

procedure NeuEingabe( var datei:tdatei); var neuesElement:TElement; begin clrscr; seek(datei, FileSize(datei)); write('Neues Element mit der Nummer'); writeln(FilePos(datei)+1); ElementEingabe(neuesElement); write(datei,neuesElement);

end;

procedure Zeigen(var datei:tdatei ); const maxzeile=5 ; var element:Telement; ch:char; nummer:integer; begin clrscr;writeln('Nummer:'); readln(nummer); dec(nummer); if nummer<FileSize(datei) then begin seek(datei,nummer); read(datei,element); clrscr; Elementausgabe(element); end; readkey;

end;

procedure Loeschen( var datei:tdatei); var nummer:integer; ch:char; ELEMENT:TElement ; begin clrscr; write(utf8decode('Welche Daten ändern?')); readln(nummer); dec(nummer); if nummer<FileSize(datei) then begin seek(datei,nummer); read(datei,element); Elementausgabe(element); writeln(utf8decode('Dieses Element ändern (J/N)?')); ch:=readkey; if ch in ['j','J'] then begin rewrite(datei,nummer); end;

end;

end;

procedure menu (var datei:tdatei); var ch:char; begin repeat clrscr; writeln('Wählen Sie:'); writeln(utf8decode(' A)Ändern eines Datenelements')); writeln('N)Eingabe eines neuen Elements'); writeln('Z)Zeigen aller Daten'); writeln(utf8decode('L)Löschen eines Elements')); writeln('E) Ende'); repeat ch:=readkey; until ch in ['a','A','n','N','z','Z','l','L','e','E'] ; Case ch of 'a','A':Aendern(datei); 'n','N':NeuEingabe(datei); 'z','Z':zeigen(datei); 'l','L':Loeschen(datei); end;

until ch in ['e','E'] ; close(datei); end;

begin if startok(datei) then menu(datei); end.