Wenn ich bereits 4 Leute danach ausserhalb der
DP gefragt habe und wir das Problem nicht beseitigen konnten darf ich denk ich hier nachfragen oder? Und ich sagte bereits, Index ist zu Counter und in der Tabelle zu Nr geworden und es tritt immer noch auf. Ausserdem hab ich eine ShowMessage drin die mir den
SQL Text anzeigt und der ist Korrekt!
So der Fehler ist weg und das ist meine Loesung:
Delphi-Quellcode:
procedure TfoMain.LvwInfoSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
var
I: Integer;
begin
if ( Selected and (LvwInfo.ItemIndex > -1) ) then
begin
for I := 0 to LvwInfo.Items.Count - 1 do
begin
EdtIndex.Text := LvwInfo.Selected.Caption;
EdtBezeichnung.Text := LvwInfo.Selected.SubItems[0];
EdtDatum.Text := LvwInfo.Selected.SubItems[1];
EdtPreis.Text := LvwInfo.Selected.SubItems[2];
end;
end;
end;
Falls es hier noch einen Performancebooster gibt bitte sagen!
Um etwas Neues zu schaffen muss man seine Ohren vor den Nein-sagern verschliessen um seinen Geist öffnen zu können.
(George Lukas)