welche property is das denn?
//EDIT: habs gefunden is keyunique. Allerdings löst das ne exception aus. Wie kann man das verhindern? Also statt der Exception ne meldung oder so
//Edit: das mit keyunique is sch***e! hab mir jez selbst was geschrieben! der überprüft ob schon der Schlüssel vorhanden ist. Wenn ja dann überschreibt er den Wert. Is der Wert für den Schlüssel allerdings auch schon vorhanden dann zeigt er die Meldung an
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure TForm2.Button2Click(Sender: TObject);
var Row:Integer;
value:String;
begin
row:=valuelisteditor1.RowCount;
if valuelisteditor1.FindRow(edit1.Text,row) = true then
begin
value:=valuelisteditor1.Values[edit1.Text];
if value = edit2.Text then
showmessage('Eintrag schon vorhanden')
else
valuelisteditor1.Values[edit1.Text]:=edit2.Text;
end
else
valuelisteditor1.InsertRow(edit1.text,edit2.text,false);
end; |
