also mein problem gestaltet sich wie folgt...
ich mach alles nun anders und lass das ordnen die tabelle über den index übernehmen...
Delphi-Quellcode:
procedure TForm5.Button1Click(Sender: TObject);
var name:string;
a,c:integer;
begin
name:=edit1.Text;
a:=length(Form1.Edit1.text);
for c:=1 to 10 do
Form4.Table1.FindKey([c]);
if Form4.Table1.FieldByName('Wortlänge').AsInteger >=
length(Form1.Edit1.text)
then
begin
Form4.table1.First;
Form4.table1.Edit;
Form4.Table1.FieldByName('Spieler').AsString:=name;
Form4.Table1.FieldByName('Wortlänge').AsInteger:=a;
Form4.Table1.FieldByName('Wort').AsString:=Form1.Edit1.text;
Form4.Table1.Post;
Form4.Table1.Refresh;
Form4.show();
Form5.Close;
end
else
begin
Form4.table1.Next;
Form4.table1.Edit;
Form4.Table1.FieldByName('Spieler').AsString:=name;
Form4.Table1.FieldByName('Wortlänge').AsInteger:=a;
Form4.Table1.FieldByName('Wort').AsString:=Form1.Edit1.text;
Form4.Table1.Post;
Form4.Table1.Refresh;
Form4.show();
Form5.Close;
end;
end;
end.
Also mein problem liegt darin das ich nur 10 zeilen in der tabelle haben will und jeweils ein neuer eintrag mit allen verglichen werden soll und dann den den der neue eintrag übertifft halt ersetzt oder das der neue eintrag nicht eingetragen wird...dann kann ne msg kommen oder so...
kannst du mir jetzt noch helfen?