Ini-Wert nicht als string einfügen

[Popov]

@Erutan

Gleich auf der ersten Seiten eines jeden Programierhandbuches, oft schon im Vorwort, aber spätestens da wo der Sinn von Prozeduren beschrieben wird, steht der Satz (mehr oder weniger): Code der sich wiederholt kann man in einer Prozedur zusammenfassen. Danach reicht es nur noch die Prozedur aufzurufen.

Soll jetzt nicht gehässig klingen, aber dein Beispiel ist geradezu ein Paradebeispiel für diese Aussage. Wo sonst als hier kann man sich viel Arbeit sparen, in dem man alles in einer Prozedur (bzw. hier Funktion) zusammenfasst. Und übersichtlicher ist es auch.

Delphi-Quellcode:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);

  function FehlerAnfrageMitMeldung(Ident, Text: String): Boolean;
  begin
    if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, Ident, ''), Text) = False then
      ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
  end;

  var
  ini: TInifile;
  filename: String;

begin
  //..

    {Abfrage für F1W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F1W', 0) of

   1: FehlerAbfrageMitMeldung('F1N', EditVorname.Text);
   2: FehlerAbfrageMitMeldung('F1N', EditNachname.Text);
   3: FehlerAbfrageMitMeldung('F1N', EditVorname.Text + ' ' + EditNachname.Text);
   4: FehlerAbfrageMitMeldung('F1N', EditAgentur.Text);
   5: FehlerAbfrageMitMeldung('F1N', EditFirma.Text);
   6: FehlerAbfrageMitMeldung('F1N', EditTelefon.Text);
   7: FehlerAbfrageMitMeldung('F1N', EditStrasse.Text + ' ' + EditNachname.Text);
   8: FehlerAbfrageMitMeldung('F1N', EditHausNr.Text);
   9: FehlerAbfrageMitMeldung('F1N', EditStrasse.Text + ' ' + EditHausNr.Text);
   10: FehlerAbfrageMitMeldung('F1N', EditEmail.Text);
   11: FehlerAbfrageMitMeldung('F1N', EditWebsite.Text + ' ' + EditNachname.Text);
   12: FehlerAbfrageMitMeldung('F1N', EditPLZ.Text);
   13: FehlerAbfrageMitMeldung('F1N', EditOrt.Text);
   14: FehlerAbfrageMitMeldung('F1N', EditPLZ.Text + ' ' + EditOrt.Text);
   15: FehlerAbfrageMitMeldung('F1N', MemoKontaktdaten.Text + ' ' + EditNachname.Text);
   16: FehlerAbfrageMitMeldung('F1N', MemoFirmenportrait.Text);
   17: FehlerAbfrageMitMeldung('F1N', EditTitel.Text);
   18: FehlerAbfrageMitMeldung('F1N', EditUntertitel.Text + ' ' + EditHausNr.Text);
   19: FehlerAbfrageMitMeldung('F1N', MemoTeaser.Text);
   20: FehlerAbfrageMitMeldung('F1N', MemoHaupttext.Text + ' ' + EditNachname.Text);
   21: FehlerAbfrageMitMeldung('F1N', EditKeyword1.Text);
   22: FehlerAbfrageMitMeldung('F1N', EditKeyword2.Text);
   23: FehlerAbfrageMitMeldung('F1N', EditKeyword3.Text + ' ' + EditOrt.Text);
   24: FehlerAbfrageMitMeldung('F1N', EditKeyword4.Text + ' ' + EditNachname.Text);
   25: FehlerAbfrageMitMeldung('F1N', MemoKeywordliste.Text);
    end ;
    {Abfrage für F1W ENDE}

   //..
end.

[Sir Rufo]

Und wenn man der Form ein paar published Properties spendiert, dann geht das alles mit noch viel weniger.

Delphi-Quellcode:

TMyForm = class( TForm )
private
  function GetFullName : string;
published
  property FullName : string read GetFullName;
end;

funtion TMyForm.GetFullName : string;
begin
  Result := EditVorname.Text + ' ' + EditNachname.Text;
end;

Der Zugriff erfolgt dann ganz simpel mit GetPropValue

Wird also FullName benötigt, dann Value := GetPropValue( MyForm, 'FullName' ); , und da PropName ein string ist, kann man diesen Wert aus der Ini lesen und ganz easy den benötigten Wert auslesen.

Und mit Delphi 7 geht das auch