Du hast mal wieder was kopiert, ohne dir den Rest anzuschauen...
@Jens Ich glaube es knallt bei "...Value :=
SetVals[i];"
dort wird auf einen Eintrag im Array zugegriffen, den es noch nicht gibt!
Das muss passieren bevor du weiter machst (Sonst gibt's eine ziemlich schräges UPDATE-Statement
).
Delphi-Quellcode:
SetCount := 0;
// Arraylänge auf ANzahl der TEdits
SetLength(SetVals, CompNames.Count);
For i := 0 To pred(CompNames.Count) Do
Begin
With FindComponent(CompNames[i]) As TEdit Do
If Text <> '' Then
Begin
// Wenn Edit <> '' -> Wert in den Array & Spalte kommt mit in die SET-Clause...
SetVals[SetCount] := Text;
SetStr := SetStr + ',' + #10 + ' ' + Fieldnames[i] + ' = :' + 'i_F' + IntToStr(SetCount);
inc(SetCount);
End;
End;
// Entferne erstes Komma & Leerzeichen
SetStr := Copy(SetStr, 10, Length(SetStr));