OSZ Handel I
Informatik

S. Spolwig

[Home | Wirtschaftsgymnasium | Informatik | Unterrichtsmaterialien]
[Startseite]

• ....
• Neben Suchen ist mindestens eine weitere Programmfunktion (Ändern, Löschen) neu zu entwickeln.

Zum Ändern:

procedure TFensterFrm.AendernBtnClick (Sender: TObject);
(* ------------------------------------------------------------------- *)
begin
  if Patientenliste.IsEmpty
  then MeldePnl.Caption := ' Keine Einträge vorhanden'
  else
    begin
      Datenaktualisieren (AktuellerPatient);
      Patientenliste.SetElement(AktuellerPatient);
    end;
  Init;
end;

Zum Löschen

procedure TListe.Remove;
(* -------------------------------------------------------------------- *)
var
  i : Cardinal;
  Elem : TElement;

begin
  if NOT IsEmpty
  then
    begin
     Elem := GetElement;
     Elem.Free;

     for i := aktuellepos to lilaenge do
     Kollektion[i] := Kollektion[i+1];

     Kollektion[lilaenge] := NIL;
     dec(LiLaenge);
     First;
    end;
end; (* remove *)

procedure TFensterFrm.LoeschBtnClick (Sender: TObject);
(* ------------------------------------------------------------------- *)
var AbfrageErgebnis : integer;

begin
  if Patientenliste.IsEmpty
  then MeldePnl.Caption := ' Keine Einträge vorhanden'
  else
    begin
      beep;
      AbfrageErgebnis := Application.MessageBox('Wollen Sie wirklich löschen ?',
                                                 '',MB_ICONWARNING + MB_YESNO);
      case AbfrageErgebnis of
      IDYES : begin
                Patientenliste.Remove;
                Init;
              end;
    end;
end;