AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
• Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Ini-Wert nicht als string einfügen

Ein Thema von Erutan · begonnen am 1. Mär 2014 · letzter Beitrag vom 2. Mär 2014
Antwort Antwort
Seite 2 von 2     12   
Volker Z.

Registriert seit: 4. Dez 2012
Ort: Augsburg, Bayern, Süddeutschland
419 Beiträge
 
Delphi XE4 Ultimate
 
#11

AW: Ini-Wert nicht als string einfügen

  Alt 1. Mär 2014, 04:29
Hallo,

Zitat:
Hmmm...mir fällt gerade auf, daß ich gar keine Funktionen brauche wenn ich die Werte in der Ini nur als Weiche verwende. Ich kann dann ja genauso gut auch die Editfelder selber eintragen. [...]
Hab ich jetzt zwar nicht verstanden, aber das lassen wir jetzt mal gut sein.

Zitat:
[...] Insofer wäre mein Problem gelöst [...]
Fein. Und gute Nacht.


Gruß
Volker Zeller
Geändert von Volker Z. ( 1. Mär 2014 um 04:38 Uhr)
  Mit Zitat antworten Zitat
Erutan

Registriert seit: 16. Mär 2013
71 Beiträge
 
Delphi 7 Professional
 
#12

AW: Ini-Wert nicht als string einfügen

  Alt 2. Mär 2014, 01:19
Ich war fleißig und hab'alles umgeschrieben.
Jetzt hab' ich aber doch noch ein Problem dabei.

Und zwar: Wenn ich das so eintrage:

zusammenfalten · markieren
Delphi-Quellcode:
case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F1W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditVorname.Text) = False then...
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditNachname.Text) = False then...
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditVorname.Text + ' ' + EditNachname.Text...
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditAgentur.Text) = False then...
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditFirma.Text) = False then...
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditTelefon.Text) = False then...
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditStrasse.Text + ' ' + EditNachname.Text)...
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditHausNr.Text) = False then ShowMessage...
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditStrasse.Text + ' ' + EditHausNr.Text)...
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditEmail.Text) = False then ShowMessage...
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditWebsite.Text + ' ' + EditNachname.Text...
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditPLZ.Text) = False then ShowMessage...
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditOrt.Text) = False then ShowMessage...
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditPLZ.Text + ' ' + EditOrt.Text...
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), MemoKontaktdaten.Text + ' ' + EditNachname....
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), MemoFirmenportrait.Text) = False then...
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditTitel.Text) = False then...
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditUntertitel.Text + ' ' + EditHausN...
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), MemoTeaser.Text) = False then...
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text)...
dann interpretiert Delphi z.B Case of 20 als Case of 20 und Case of 2, d.h. es werden zuerst die Daten von case of 20 und darunter die Daten von case of 2 eingetragen.

Wie kann ich das verhindern?
Holger
  Mit Zitat antworten Zitat
Volker Z.

Registriert seit: 4. Dez 2012
Ort: Augsburg, Bayern, Süddeutschland
419 Beiträge
 
Delphi XE4 Ultimate
 
#13

AW: Ini-Wert nicht als string einfügen

  Alt 2. Mär 2014, 01:48
Hallo,

Zitat:
[...] dann interpretiert Delphi z.B Case of 20 als Case of 20 und Case of 2
tut Delphi sicher nicht.

Wenn der, von Dir gezeigte Teil Sourcecode zweimal durchlaufen wird (für 20 und 2), dann wird es wohl daran liegen, dass in der Funktion FillForm (...) nochmals der gezeigte Teil des Quellcode aufgerufen wird.
Aber ohne genaue Infos - kompletter Quellecode - kann ich dazu leider nix sagen.

Gruß
Volker Zeller
  Mit Zitat antworten Zitat
Erutan

Registriert seit: 16. Mär 2013
71 Beiträge
 
Delphi 7 Professional
 
#14

AW: Ini-Wert nicht als string einfügen

  Alt 2. Mär 2014, 01:58
Hier der komlette Sourcecode:

zusammenfalten · markieren
Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  ini: TInifile;
  filename: String;
begin
filename := ExtractFilePath(ParamStr(0)) + 'einstellungen.ini';
ini := TIniFile.Create(filename);
try
    ini.ReadSections(ComboBoxPresseverteiler.Items); //Sektionen der Ini-Datei in die Combobox einlesen
finally
    ini.Free;
  end;

  Saved8087CW := Default8087CW;
  System.Set8087CW($133f);
end;

procedure TForm1.Beenden1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Presseverteilerhinzufgen1Click(Sender: TObject);
begin
    ShellExecute(Application.Handle,'open',PChar('dtful.exe'),nil,PChar(''),sw_ShowNormal);
end;


//----------------------------------------------------

function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;
  //no form on document
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
    Exit;
  end;
  //count forms on document
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
  begin
    FormItem := WebBrowser.OleObject.Document.forms.Item(I);
    for j := 0 to FormItem.Length - 1 do
    begin
      try
        //when the fieldname is found, try to fill out
        if FormItem.Item(j).Name = FieldName then
        begin
          FormItem.Item(j).Value := Value;
          Result := True;
        end;
      except
        Exit;
      end;
    end;
  end;
end;

//----------------------------------------------------------------


procedure TForm1.ButtonAbsendenClick(Sender: TObject);
var
  ini: TInifile;
  filename: String;
begin
filename := ExtractFilePath(ParamStr(0)) + 'einstellungen.ini';
ini := TIniFile.Create(filename);

Webbrowser1.Navigate(Ini.ReadString(ComboBoxPresseverteiler.Text, 'URL', ''));

 ini.Free;

end;



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

begin
filename := ExtractFilePath(ParamStr(0)) + 'einstellungen.ini';
ini := TIniFile.Create(filename);

  // WebBrowser1.OleObject.document.forms.item(0).elements.item(Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', '')).value := Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1W', '' );
  // f1w := Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1W', '');
  // WebBrowser1.OleObject.document.forms.item(0).elements.item(Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', '')).value := EditVorname.Text + ' ' + EditNachname.Text;

  if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'userN', ''), Ini.ReadString(ComboBoxPresseverteiler.Text, 'userW', '')) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
  if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'passN', ''), Ini.ReadString(ComboBoxPresseverteiler.Text, 'passW', '')) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');


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

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F1W ENDE}

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

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F2W ENDE}

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

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F3W ENDE}


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

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F4W ENDE}

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

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F5W ENDE}

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

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F6W ENDE}

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

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F7W ENDE}

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

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F8W ENDE}

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

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F9W ENDE}

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

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F10W ENDE}

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

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F11W ENDE}

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

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F12W ENDE}

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

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F13W ENDE}

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

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F14W ENDE}

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

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F15W ENDE}

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

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F16W ENDE}

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

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F17W ENDE}

//....Text zu lang für das Forum, daher gekürzt

  Ini.Free;
  end;

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
if ProgressMax = 0 then
  begin
    label1.Caption := '';
    Exit;
  end;
  try
    if (Progress <> -1) and (Progress <= ProgressMax) then
      label1.Caption := IntToStr((Progress * 100) div ProgressMax) + '% fertig...'
    else
      label1.Caption := '';
  except
    on EDivByZero do Exit;
  end;
end;


end.
Holger
  Mit Zitat antworten Zitat
Erutan

Registriert seit: 16. Mär 2013
71 Beiträge
 
Delphi 7 Professional
 
#15

AW: Ini-Wert nicht als string einfügen

  Alt 2. Mär 2014, 02:13
Und da ein Programm mehr sagt als tausend Worte, hier dss was ich vorläufig fertig habe. Muss alles ins gleiche Verzeichnis.
Angehängte Dateien
Dateityp: zip Presssubmit.zip (504,8 KB, 4x aufgerufen)
Holger
  Mit Zitat antworten Zitat
Erutan

Registriert seit: 16. Mär 2013
71 Beiträge
 
Delphi 7 Professional
 
#16

AW: Ini-Wert nicht als string einfügen

  Alt 2. Mär 2014, 02:22
Alles zurück. Ich glaube, ich habe den Fehler. Ich habe einen Wert falsch eingetragen.

Sorry für die Mühe. Ich hoffe, jetzt klappt es.
Holger
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#17

AW: Ini-Wert nicht als string einfügen

  Alt 2. Mär 2014, 05:29
dann interpretiert Delphi z.B Case of 20 als Case of 20 und Case of 2, d.h. es werden zuerst die Daten von case of 20 und darunter die Daten von case of 2 eingetragen
Man hätte natürlich einfach mal mit dem Debugger nachsehn können, ob Delphi das wirklich macht.

Wurde dir nicht schonmal gesagt, daß man if ... = False then einfach nicht mache?

Und die Fehlermeldung ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden') ist auch geil, denn die sagt absolut nichts, vorallem nicht das Wichtigste, also was nicht gefunden wurde.

Und Natürlich fällt keinem auf, daß hier Code tausendmal kopiert wurde?
Im Prinzip passt alles, also das ganze Case, in eine Funktion, welche nur noch zwei Parameter braucht (also F1W und F1N)
Oder man schreibt eine Funktion, welche für einen Integer den passenden String, des gewünschten Edits zurückgibt und die vielen Case sind plötzlich nutzlos.
Oder ...
$2B or not $2B
  Mit Zitat antworten Zitat
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.

zusammenfalten · markieren
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
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#19

AW: Ini-Wert nicht als string einfügen

  Alt 2. Mär 2014, 12:31
Und wenn man der Form ein paar published Properties spendiert, dann geht das alles mit noch viel weniger.

zusammenfalten · markieren
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 Delphi-Referenz durchsuchenGetPropValue

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
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   

« Vorheriges Thema | Nächstes Thema »

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus
Gehe zu:

• Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz