savedialog/opendialog

[marcelwhip]

aha, also man muss nen file nehmen, allerdings wie kann ich dann vom 1. zum 2. datensatz blättern?
beim array macht man edit1.text:=array[1+1].xxx, wei geht das denn bei daten?
achso, char ist doch aber nur ein buchstabe oder?

Delphi-Quellcode:

type
  TDaten = record
    vorname, Name, nummer, handyn, ort:string[15];
    strasse, email:string[20];
    plz, hnummer:string[5];
  end;
var
  ake:integer;    //Aktueller Eintrag//
  anze:integer;   //Anzahl Einträge//
  schongespeichert:boolean;
  eintrag: array1..300] of Tdaten;

procedure TForm1.Button3Click(Sender: TObject);  //ein eintrag vor
  begin
    if anze=ake then
      begin
        showmessage('Du zeigst bereits den lezten Eintrag an!');
        exit;
      end
    else
      begin
        evorname.text:=eintrag[ake+1].vorname;
        ename.text:=eintrag[ake+1].name;
        enummer.text:=eintrag[ake+1].nummer;
        ehandy.Text:=eintrag[ake+1].handyn;
        eHnummer.Text:=eintrag[ake+1].hnummer;
        eort.text:=eintrag[ake+1].ort;
        eplz.Text:=eintrag[ake+1].PLZ;
        estrasse.text:=eintrag[ake+1].strasse;
        email.Text:=eintrag[ake+1].email;
        ake:=ake+1;
      end;
  end;