Forum: Multimedia
Delphi
by busybyte,
17. Mär 2009
Var anztimer,index:integer;
procedure TForm1.Button2Click(Sender: TObject);
begin
if (stringgrid1.Row>stringgrid1.RowCount-2) then
stringgrid1.RowCount:=stringgrid1.Rowcount+1;
stringgrid1.Cells:=(Edzeit.text);
stringgrid1.Cells:=(ComboBox1.Text);
Forum: Multimedia
Delphi
by busybyte,
17. Mär 2009
Das füllt Deine Zellen automatisch also musst Du das löschen
for cnt1 := 0 to Stringgrid1.RowCount - 1 do
Stringgrid1.Cells:=inttostr(cnt1);
und das vermutlich auch weil Dir das anzeigt was aus dem Stringgrid gelesen wurde bzw. in der Variablen:ZeitS steht.
Forum: Multimedia
Delphi
by busybyte,
17. Mär 2009
Das war nur zum Testen ob das Lesen und Umschalten per Timer funktioniert.
Ah so, und mit Row bestimmst du die Zeile die den Auswahlfocus erhält.
Das war vieleicht auch so gewünscht,aber dann hätte Row dem index angepasst werden müssen.
Forum: Multimedia
Delphi
by busybyte,
17. Mär 2009
ja du arbeitest mit row ,row ist falsch
nur mit cells und rowcount arbeiten
var index:integer;
procedure TForm1.Button1Click(Sender: TObject);
var i,b,p_:integer; g:string; //var index:integer; //hier wird index wieder 0 bzw. nicht 0 sondern undefiniert
Forum: Multimedia
Delphi
by busybyte,
17. Mär 2009
var index:integer;
procedure TForm1.Button3Click(Sender: TObject);
var i,b,p_:integer; g:string; //var index:integer; //hier wird index wieder 0 bzw. nicht 0 sondern undefiniert
zeitS:String;
zeitI:integer;
begin
//ich hab hier mal die Nummer 0 genommen
zeitS:=stringgrid1.Cells;
Forum: Multimedia
Delphi
by busybyte,
17. Mär 2009
Doch hat er aber erst nachdem er die if abfrage stellt,dann geht's latürnich nicht
var index:integer;
procedure TForm1.Button3Click(Sender: TObject);
var i,b:integer; g:string; //var index:integer; //hier wird index wieder 0 bzw. nicht 0 sondern undefiniert
begin
Timer6.Interval := 1000 * strtoint(edzeit.text);
Timer6.Enabled:=True;
Forum: Multimedia
Delphi
by busybyte,
17. Mär 2009
var index:integer;
procedure TForm1.Button3Click(Sender: TObject);
var i,b:integer; g:string; //var index:integer; //hier wird index wieder 0 bzw. nicht 0 sondern undefiniert
begin
Timer6.Interval := 1000 * strtoint(edzeit.text);
Timer6.Enabled:=True;
if g ='Geradeaus'
then
begin