habs jetzt glaub ich gelöst durch einige komplikationen,
gibts dafür nicht noch einen kürzeren weg??
Delphi-Quellcode:
procedure TForm1.EditChange(Sender: TObject);
var
tmp:integer;
komma: Boolean;
begin
if length(edit.text)>2 then
begin
x:='';
y:='';
tmp:= 0;
komma:= false;
while tmp< Length(edit.Text) do
begin
if not (copy(edit.Text,tmp+1,1)=',')then
if komma then
y:=y+copy(edit.Text,tmp+1,1)
else
x:=x+copy(edit.Text,tmp+1,1)
else
komma:= true;
inc(tmp);
end;
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
if not (x= '') or (y= '') then
begin
if StringGrid.ColCount< strtoint(x) then
StringGrid.ColCount := strtoint (x);
if StringGrid.RowCount< strtoint (y) then
StringGrid.RowCount := strtoint (y);
end;
StringGrid.Cells[strtoint(x),strtoint(y)]:= edit1.Text;
end;
nur meine probleme nehmen kein ende es sind mir nicht mehr die editfelder sondern soll es über das OnChange / OnChanging von dem pagecontroll gehen.
d.h. sobald ich den reiter wechsel soll er die eingaben von edit und edit1 auf den stringgrid reiter übernehmen
bin dankbar für eure hilfe!