hab noch mal ne frage ^^
und zwar will ich dass er den aus der DBGrid gelesenen Wert vorher noch mit dem list eintrag vergleicht
und wenn er doppelt ist ihn nicht hinzufügt sondern erst fragt
weiteres problem ich möchte dass die listeinträge ein TObject ranbekommen der mit einem autoinc eintrag aus dem
DBGrid identisch is um einen rückbezug zu haben aber autoinc und integer verstehen sich nicht
Code:
procedure TForm1.Button3Click(Sender: TObject);
var n,i:integer;
f:array [0..100] of string;
begin
for n := 1 to Listbox1.Count +1 do
begin
if DBGrid1.DataSource.DataSet.FieldbyName('Name').Value=f[i] then //Vergleich von Name aus liste und DBGrid funzt nicht
edit2.text:='1';
end;
if edit2.Text='1' then
begin
form2.showmodal;
end
else Listbox1.Items.Addobject(DBGrid1.DataSource.DataSet.FieldbyName('Name').Value, Tobject(DBGrid1.DataSource.DataSet.FieldbyName('ID').Value)); // anfügen eines TObjects welches den wert von ID aus dem DBGrid liest funzt nicht
end;