Delphi-PRAXiS
Seite 2 von 2     12   
40 Beiträge dieses Themas auf einer Seite anzeigen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Ini-Wert nicht als string einfügen (https://www.delphipraxis.net/179348-ini-wert-nicht-als-string-einfuegen.html)

Volker Z. 1. Mär 2014 03:29
AW: Ini-Wert nicht als string einfügen
 
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. :gruebel:

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


Gruß

Erutan 2. Mär 2014 00:19
AW: Ini-Wert nicht als string einfügen
 
Ich war fleißig und hab'alles umgeschrieben.
Jetzt hab' ich aber doch noch ein Problem dabei.

Und zwar: Wenn ich das so eintrage:

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?

Volker Z. 2. Mär 2014 00:48
AW: Ini-Wert nicht als string einfügen
 
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ß

Erutan 2. Mär 2014 00:58
AW: Ini-Wert nicht als string einfügen
 
Hier der komlette Sourcecode:

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.

Erutan 2. Mär 2014 01:13
AW: Ini-Wert nicht als string einfügen
 
Liste der Anhänge anzeigen (Anzahl: 1)
Und da ein Programm mehr sagt als tausend Worte, hier dss was ich vorläufig fertig habe. Muss alles ins gleiche Verzeichnis.

Erutan 2. Mär 2014 01:22
AW: Ini-Wert nicht als string einfügen
 
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.

himitsu 2. Mär 2014 04:29
AW: Ini-Wert nicht als string einfügen
 
Zitat:
Zitat von Erutan (Beitrag 1250139)
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. :roll:

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

Und die Fehlermeldung
Delphi-Quellcode:
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 ...

Popov 2. Mär 2014 10:48
AW: Ini-Wert nicht als string einfügen
 
@Erutan

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

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

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

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

  var
  ini: TInifile;
  filename: String;

begin
  //..

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

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

   //..
end.

Sir Rufo 2. Mär 2014 11:31
AW: Ini-Wert nicht als string einfügen
 
Und wenn man der Form ein paar
Delphi-Quellcode:
published
Properties spendiert, dann geht das alles mit noch viel weniger.

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

funtion TMyForm.GetFullName : string;
begin
  Result := EditVorname.Text + ' ' + EditNachname.Text;
end;
Der Zugriff erfolgt dann ganz simpel mit Delphi-Referenz durchsuchenGetPropValue

Wird also FullName benötigt, dann
Delphi-Quellcode:
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 ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:04 Uhr.
Seite 2 von 2     12   
40 Beiträge dieses Themas auf einer Seite anzeigen

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