if Anweisung zur Laufzeit ändern?

[Alterauge]

Also meine Frage,

Delphi-Quellcode:

   var
  Wert: string;
 begin
  if (CRDBGrid2.DataSource.DataSet.RecordCount = 0) then
     Exit;
   Wert := CRDBGrid2.DataSource.DataSet.FieldByName('Einsatznummer').Value;
   if Wert = '???' then begin // hier ist mein Problem! Die Einsatznummer änder sich ja! Also kann ich keinen festen Wert bestimmen!

Die Einsatznummer ändern sich ja immer wieder zur Laufzeit! Was nun? Hat einer eine Idee?

[Jumpy]

Ich versteh das Problem nicht. Irgendwo kommt die Nummer ja her bzw. ist irgendwo in deinem Programm bekannt. Speicher die in eine Variable und Vergleiche in deiner If-Anweisung Wert mit dieser Variable.

Was im Zweifel immer funktioniert ist
if wert = wert then begin...

Achja. Da wert ja ein String ist, dann nimm doch auch ...FieldByName("blub").AsString

[Mavarik]

Selbst mit der besten Glaskugel läßt sich Deine Frage nicht beantworten...

Was willst Du den abtesten?

Mavarik

[Alterauge]

OK!
Wenn ich zur Laufzeit einen neuen Einsatz eröffne, wird eine neue Einsatznummer erstellt! (Datenbank)
Jetzt zur if Anweisung:

(ist die Einsatznummer so und so), and ,(das Einsatzfahrzeug hat einen Wert von '3') then
ergibt das den Wert = 'ausgerückt' in der Datenbank!
__________________________________________________ __________________________________________________ ________

Ist der Wert im DBGrid ausgerückt, färbt sich die Zeile rot!
Es darf sich aber nur die Zeile färben die die Einsatznummer hat! (und nicht alle Einsätze)

Vielleicht jetzt verständlich? Oder noch nicht?

[Medium]

Zitat von Alterauge:

(ist die Einsatznummer so und so), and ,(das Einsatzfahrzeug hat einen Wert von '3') then

Das rote wäre der interessante Teil. Wo kommt der her, und was sagt er aus? Wann wird der gemacht, wer macht den?

[Jumpy]

Zitat von mkinzler:

Zitat:

Achja. Da wert ja ein String ist, dann nimm doch auch ...FieldByName("blub").AsString

Warum sollte man den String zuerst in einen String konvertieren? .as<Typ> ist ein Cast und deshalb überflüssig!

Die Variable Wert ist ja ein String. Das Feld in der BB hieß aber irgendwas mit Nummer. Hätte ja sein können, dass das in der DB ein numerisches Feld ist. Macht dann .Value einen automatischen Cast oder knallt das dann?

[Mavarik]

Na wenn die Einsatznummer neu erstellt wurde, dann hast Du doch die Einsatznummern...

Mavarik

[mkinzler]

Zitat:

Achja. Da wert ja ein String ist, dann nimm doch auch ...FieldByName("blub").AsString

Warum sollte man den String zuerst in einen String konvertieren? .as<Typ> ist ein Cast und deshalb überflüssig!

[Alterauge]

Ist bestimmt ganz einfach!
Ich denke nur zu kompliziert!

Ach hier die Einfärbung rot!

Delphi-Quellcode:

procedure TForm1.CRDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
   var
  i : Integer;
  Wert: string;
 begin
  if (CRDBGrid1.DataSource.DataSet.RecordCount = 0) then
     Exit;
   Wert := CRDBGrid1.DataSource.DataSet.FieldByName('Zuordnung').Value;
   if Wert = 'ausgerückt' then begin
    CRDBGrid1.Canvas.Brush.Color := clred;
     CRDBGrid1.Canvas.Font.Color := clblack;
       end else
    if Wert = '0 Eingang' then begin
     CRDBGrid1.Canvas.Brush.Color := clyellow;
     CRDBGrid1.Canvas.Font.Color := clblack;
    end else
    if Wert = 'Bearbeitung' then begin
     CRDBGrid1.Canvas.Brush.Color := clFuchsia;
     CRDBGrid1.Canvas.Font.Color := clblack;
     end else
       if Wert = 'Vor Ort beendet' then begin
     CRDBGrid1.Canvas.Brush.Color := cllime;
     CRDBGrid1.Canvas.Font.Color := clblack;
   end else begin
  
    end;
   CRDBGRid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
begin
   CRDBGRid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
        if (gdSelected in State) then
     begin
            // Form1.CRDBGrid1.Canvas.Brush.Color := clSilver;
            // Form1.CRDBGrid1.Canvas.Font.Color:=clblack;
        end;
     form1.crDBGrid1.Canvas.FillRect(Rect);
     form1.crDBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 1, Column.Field.AsString);

begin
  with MyTable1 do
    for i := 5 to Pred(Fields.Count) do
      Fields[i].DisplayWidth := 255;
end;
end;
end;

__________________________________________________ __________________________________________________ ___

Die Einsatznummer wird abgeholt, aus einem Memo!

Delphi-Quellcode:

procedure TForm1.AdvGlowButton28Click(Sender: TObject);
begin
DBEdit9.Text := Copy(DBMemo3.Text, Length(DBMemo3.Text)-9, 10);
end;

[mkinzler]

Duz sagst immer du willst etwas Lernen, berücksichtigst aber nicht die einfachsten Tipps. Zu wurdest schon öfterst ( eigentlich bei jeder deiner Fragen) auf die Bedeutung des Parameters Sender hingeweisen und das dieser der Verwendung einer festen Objektreferenz vorzuziehen ist. Trotzdem verendest du das jedesmal wieder ( CRDBGrid1)!

Kommen weitere Werte hinzu und soll dann auf diese Werte später besonderst reagiert werden, dann nomalisiere diese in der Datenbank und lege dort auch das Verhalten ab.

Z.B. Tabelle Zuordnung (oder Phase)

ID Bez Hintergrund Schrift
1 'ausgerückt' #FF0000 #000000
0 '0 Eingang' ...

In der abgefragten Tabelle dann statt dem Text die ID auf die Zuordnungstabelle (FK) und bei der Abfrage die Farben hinzujoinen

Zitat:

Tu dir selbst einen Gefallen, und benenne deine Controls vernünftig. Das ist ja grausig so!

Das ist auch eine Sache, die man ihm in jedem seiner Fragen sagt.