Einzelnen Beitrag anzeigen

Popov
(Gast)

n/a Beiträge
 
#18

AW: Ini-Wert nicht als string einfügen

  Alt 2. Mär 2014, 11:48
@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.
  Mit Zitat antworten Zitat