leider funktioniert keine der beiden lösungen oder unser ansatz es zu benutzen ist falsch, wenn ihr die Lösung kennt dann sagt sie uns bitte und warum das so genutzt wird das wäre sehr sehr nett.
Delphi-Quellcode:
procedure TForm3.ColorButton1Click(Sender: TObject);
var
gramm, cash : Extended;
names : String;
i, x, b : Integer;
arrey : String;
begin
gramm := StrToFloat(edit1.text);
cash := StrToFloat(Edit2.text);
x := Form4.StringGrid1.ColCount;
Form4.StringGrid1.Rows[0].Assign(ComboBox1.Items);
{
gramm, cash : Extended;
names : String;
i, x, b : Integer;
arrey : array of String;
begin
gramm := StrToFloat(edit1.text);
cash := StrToFloat(Edit2.text);
x := Form4.StringGrid1.ColCount;
}
{
for b := 1 to x do
begin
arrey[b] := form4.Stringgrid1.Cells[b,0];
end;
for i := 1 to x do
begin
form3.Combobox1.items[i-1] :=arrey[i];
end;
}