if Anweisung zur Laufzeit ändern?

[Alterauge]

OK, bin ein wenig schlampig!

Auch wenn es nervig ist, noch eine Zwischenfrage!

Was ist hier falsch?

Delphi-Quellcode:

procedure TForm1.Timer6Timer(Sender: TObject);
begin
if (MyTAble1.FieldByName('Einsatznummer').Value) = (MyTAble3.FieldByName('Einsatznummer').Value)   then begin
  ShowMessage('Test');
end;
end;

Frage:
Ist die Einsatznummer aus DB1 = wie Einsatznummer DB2 dann ShowMessage!
Keine Fehlermeldung Quelltext sauber! geht aber nicht?

[Medium]

...Fehlermeldung/Was passiert (nicht)? Sag mal, so neu bist du doch hier nicht, dass man dir noch das Fragen beibringen muss oder?

[mkinzler]

Vielleicht Leerzeichen in den Feldern?

Delphi-Quellcode:

if Trim(MyTAble1.FieldByName('Einsatznummer').Value) = Trim(MyTAble3.FieldByName('Einsatznummer').Value) then 
begin
  ShowMessage('Test');
end;

[Alterauge]

Geht jetzt! Ich Blödmann

Delphi-Quellcode:

[DELPHI]
procedure TForm1.Timer6Timer(Sender: TObject);
begin
if (MyTAble1.FieldByName('Einsatznummer').Text) = (MyTAble3.FieldByName('Einsatznummer').Text)   then begin
  ShowMessage('Test');
end;
end;

[/DELPHI]

[p80286]

Delphi-Quellcode:

if Wert = 'ausgerückt' then begin
if Wert = '0 Eingang' then begin
if Wert = 'Bearbeitung' then begin
if Wert = 'Vor Ort beendet' then begin

Es wäre etwas sicherer statt dieser String-Werte, etwas numerisches zu nutzen.
Falls es z.B. eine Ländercodedifferenz zwischen DB und Client geben sollte, könnte da nur noch datentechnischer Hackepeter übrig bleiben.
ob Mkinzler's Vorschlag der optimale ist, darüber mag man diskutieren. Aber das Prinzip ist richtig, und das solltest Du tunlichst beherzigen, auch wenn Du "etwas schlampig" bist.

Gruß
K-H

[mkinzler]

Man kann sich darüber Streiten ob die Farben zu den Phasen gehören, ja. Aber das Datenbankschema sieht für mich auch unabhängig von den Anzeigenfarben recht "unnormalisiert" aus.

[p80286]

Ich dachte eher an die Texte, aber was soll's, die Grundlagen sind doch sehr lückenhaft.

Gruß
K-H