Einzelnen Beitrag anzeigen

dde

Registriert seit: 7. Mai 2003
132 Beiträge
 
#2
  Alt 8. Mai 2003, 23:00
Ich könnte dir vorschlagen, dass der Benutzer direkt in die StringGrids schreibt, anstatt die Edit-Felder zu gebrauchen.
Um direkt in die StringGrids schreiben zu können, änderst du den Wert "goEditing" des StringGrids auf true (StringGrid1->Objekt-Inspektor->Options->goEditing->True)

oder versuchs mal mit diesem code (nicht getestet):

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var x,i:integer;
begin
x:=0;
for i:=StringGrid1.RowCount downto 1 do
begin;
inc(x);
if StringGrid1.Cells[1,x]<>'then StringGrid1.Cells[1,x+1]:=Edit1.Text
else StringGrid1.Cells[1,x]:=Edit1.Text;
if StringGrid1.Cells[1,x+2]='then break;
end;
end;
  Mit Zitat antworten Zitat