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