StringGrid und Button Funktion

[Alterauge]

Hallo,
habe mir was überlegt:

Wenn Ich Button1 drücke, soll eine Information ins Stringgrid geschrieben werden (Wert15).

Jetzt steht der Wert 15 im Stringgrid!
Button 2 soll Werte im StrinGrid lesen, bei Wert 15 soll Button 2 blinken.

Geht sowas?

[Luckie]

Zitat:

Zitat von Alterauge (Beitrag 1145734)

Geht sowas?

Ja. Obwohl eine Schaltfläche blinken lassen, könnte etwas umständlich werden, je nach dem was du dir unter blinken vorstellst.

[DeddyH]

Ja.

[Alterauge]

Hey,

das Blinken ist kein Problem!

Das der Button1 sein Befehl (15) in ein StringGrid schreibt, ist auch kein Problem.

Mein Problem ist, Button2!
Im StringGrid (Zeile1) lesen, bei Wert 15 ....... und bei Wert 0 nix machen.

[DeddyH]

Wo genau ist denn das Problem?

Delphi-Quellcode:

if StringGrid.Cells[Spalte, Zeile] = '15' then
  Blinken;

Oder was meinst Du?

[Alterauge]

Delphi-Quellcode:

 if FormReporting.Report.Rows[1][5]= '1' then begin
  FormMAin.AdvGlowButton9.Caption:='test';

Frage: Immer die letzt Zeile lesen (-1)?

Delphi-Quellcode:

 if FormReporting.Report.Rows[-1][5]=

[Alterauge]

Delphi-Quellcode:

procedure TFormMain.AdvGlowButton9Click(Sender: TObject);
 var i: integer;
begin
 i := FormReporting.Report.RowCount-1;
   if FormReporting.Report.Rows[i][5]= '2' then begin
   FormMain.AdvGlowButton9.Caption:='test';
  end;
end;

Habe es so versucht! Geht nicht ???
Was ist falsch hier?

[Alterauge]

Hat da einer eine Idee?

Was ich hier falsch mache?

[Alterauge]

Delphi-Quellcode:

procedure TFormMain.Timer1Timer(Sender: TObject);
 var i: integer;
begin
 i := FormReporting.Report.TopRow-1;
   if FormReporting.Report.Rows[i][5]= '1' then
  begin
   FormMain.AdvGlowButton9.Caption:='test';
  end;
   end;

So geht es auch nicht? Verstehe ich nicht???

[DeddyH]

Könntest Du bitte das Pushen unterlassen? Und bist Du sicher, dass Deine verwendeten Indizes auch richtig sind?

[Alterauge]

OK ! :-)

Der Quelltext sieht sauber aus!
Bin die ganze Zeit am überlegen, was hier faul ist.
Oder was meinst Du ?

[DeddyH]

Ich weiß doch nicht, wo der gesuchte Text nun genau in Deinem Grid steht. Spalte 6 der letzten Zeile? So habe ich es zumindest herausgelesen.

[Alterauge]

Richtig! So lese ich es auch!
Aber es passiert nix?

[DeddyH]

Vorschlag:

Delphi-Quellcode:

var
  ColIndex: integer;
begin
  ColIndex := StringGrid1.Rows[StringGrid1.RowCount - 1].IndexOf('1');
  if ColIndex > -1 then
    ShowMessage('Zeile enthält "1" in Spalte ' + IntToStr(ColIndex));

Kommt da nix, stimmt die Zeile wohl nicht.

[Alterauge]

da kommt auch nix?

Delphi-Quellcode:

 var i: integer;
begin
 i := FormReporting.Report.TopRow-1;
   if FormReporting.Report.Rows[i][5]= '1' then  // lese die letzte Zeile (also die aktuelle zeile) oder nicht?
  begin
   FormMain.AdvGlowButton9.Caption:='test';
  end;
   end;

[DeddyH]

Meinst Du wirklich TopRow?

[Alterauge]

oder

Delphi-Quellcode:

FormReporting.Report.RowCount-1;

[DeddyH]

Hast Du meinen Code aus #14 mal ausprobiert?

[Alterauge]

habe ich! nix passiert!

[DeddyH]

Dann hast Du wohl nicht die richtige Zeile angesprochen. Hast Du mal einen Screenshot von dem Grid?

[Alterauge]

Delphi-Quellcode:

var
  ColIndex: integer;
begin
  ColIndex := FormReporting.Report.Rows[FormReporting.Report.RowCount - 2].IndexOf('1');
  if ColIndex > -2 then
    ShowMessage('Zeile enthält "1" in Spalte ' + IntToStr(ColIndex));

Antwort kommt: 'Zeile enthält "1" in Spalte -1' aber der Wert 1 war nicht vorhanden??????

[DeddyH]

:wall: Ein Index von -1 heißt, dass der gesuchte Wert nicht gefunden wurde. Wieso änderst Du die Abfrage auf -2, was soll das bringen?

[Alterauge]

hier das Grid

[Alterauge]

sollte ein versuch sein!
habe es wieder auf -1 geändert.

[DeddyH]

Und in der letzten Zeile soll unter "Funktion" eine 1 stehen?

[Alterauge]

Richtig!

Wenn da eine 1 steht,

then
begin
FormMain.AdvGlowButton9.Caption:='test';
end;

[DeddyH]

Dann zeig doch mal, wie Du die 1 da reinschreibst. Irgendwas läuft doch da falsch.

[Alterauge]

Die 1 steht da drin! Ich sehe sie ja, wenn ich das Grid öffne!

Als Beispiel:

Delphi-Quellcode:

FormEinsatz.InsertLine(Sender);
FormReporting.Report.Rows[1][5] := 'test';

das geht, dann steht da 'test'

[DeddyH]

Ich glaube zwar spontan nicht, dass es einen großen Unterschied macht, aber versuch es mal über die Cells.

Delphi-Quellcode:

FormReporting.Report.Cells[1, 5] := 'test';

Delphi-Quellcode:

if FormReporting.Report.Cells[1, 5] = 'test' then
  ShowMessage('Na also, geht doch');

[Alterauge]

Delphi-Quellcode:

procedure TFormEinsatz.InsertLine(Sender: TObject);
begin
  FormReporting.Report.InsertChildRow(0);
  FormReporting.Report.Rows[1][0] := '<p align="center">' +
   IntToStr(FormReporting.Report.RowCount-1) + '</p>';
  FormReporting.Report.Rows[1][2] := '' + DateToStr(Date) + '';
  FormReporting.Report.Rows[1][3] := '' + TimeToStr(Now) + '';
end;

[Alterauge]

habe ich schon versucht!
geht auch nicht!

[DeddyH]

Hast Du vielleicht mehrere Instanzen des Formulars oder sowas? Wenn man etwas in das Grid hineinschreibt, muss man es ja auch später wieder auslesen können. Ich kann mir das fast nur noch mit einem "Instanzenchaos" oder etwas in der Art erklären.

[Alterauge]

DeddyH, erstmal vielen Dank für Deine Zeit!

Werd nach einer anderen Lösung suchen!
Dieses hat einfach keinen wert :-)!

Wollte einfach meine Button Netzwerkfähig machen!
Da mein Programm bald auf drei Rechnern laufen soll!
Wolte es über das Grid machen, als Protokoll.

Schade

Wenn Rechner A Quittiert müssen B und C auch den Alarm abschalten!

[DeddyH]

Wäre da eine Datenbank nicht angebrachter?

[Alterauge]

Richtig!

Wollte es nur mit dem StringGrid testen.

Habe sonst ein DBGrid / MYSQL usw.

Habe echt gedacht, super Idee!

Danke

[Alterauge]

Was ich nich nicht verstehe ist:

Delphi-Quellcode:

procedure TFormMain.AdvGlowButton9Click(Sender: TObject);
begin
FormReporting.Report.Cells[5,1]:='1';
end;

Also hier: Schreibt der Button in der ersten Zeile und Spalte 6 eine '1'.
Das klappt soweit!

Jetzt zum Problem:

Ein Timer soll alle paar sec. überprüfen ob sich in der Zeile 1 Splate 6 eine '1' befindet.

siehe:

Delphi-Quellcode:

procedure TFormEinsatz.Timer33Timer(Sender: TObject);
begin
   if FormReporting.Report.Cells[5,1]= '1' then    
  begin
   FormMain.AdvGlowButton9.Caption:='test';
  end;
end;

wenn sich eine '1' in der ersten Zeile und Spalte 6 befindet, dann schreib:FormMain.AdvGlowButton9.Caption:='test';


es geht aber nicht?

[DeddyH]

Geh doch mal mit dem Debugger ran, was wird denn da als Wert ermittelt? BTW: 33 Timer?

[edit] Und dass Du über Formulargrenzen hinweg ein StringGrid als Datenspeicher gebrauchst ist nicht so der Hit. Vielleicht solltest Du das Konzept überdenken. [/edit]

[Alterauge]

Ich werde noch ein wenig testen!

Danke Dir DeddyH!

Wenn ich eine Lösung gefunden habe, melde ich mich!

Gruß Andre