Datensatz löschen

[Bruce86]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var a:integer;v_satz : T_inhalt;
begin
a:=strtoint(form2.Edit1.Text);
if a = strtoint(form1.editnummer.Text) then
begin
p_loesch(z_kopf,z_ende,z_aktuell);
end;
Form2.Close;
  v_satz.name := '';
  v_satz.nummer := '';
  p_lies(z_aktuell,v_satz);
  form1.editname.Text := v_satz.name;
  form1.editnummer.text :=v_satz.nummer;
end;
end.

Hi! Also dies ist mal der Quellcode, den ich durch probieren rausbekommen habe! Es geht ums löschen eines Datensatzes! Würde die if schleife nun gerne erweitern! Und zwar, dass nicht gesagt wird, er soll den Datensatz nur löschen, wenn das Edit1 von Form2 mit dem Editnummer von Form1 übereinstimmt, sondern so zusagen wenn das nicht so ist, soll er den Datensatz suchen bis er ihn gefunden hat und dann löschen! Könnt ihr mir da helfen? Wäre echt wichtig!

Vielen Dank im Voraus

und wäre echt super wenn es mit Quellcode ginge!

Bruce86

[bttb930]

das ist nicht dein ernst, oder?

schonmal was von "else" gehört?

und mach doch mal den quellcode lesbarer. und deinen text nachvollziehbarer. echt ey.

[RWarnecke]

Eine For-Schleife sollte Dir dabei helfen, jeden Datensatz einzulesen und dann mit Deiner Eingabe zu vergleichen.