|
Delphi-Version: 5
Ini-Wert nicht als string einfügen
Hallo,
ich habe ein Problem mit dem Einlesen eines Ini-Wertes. Um ein Webformular auszufüllen soll das Programm die Daten aus einer Ini-Datei holen. Macht es auch...allerdings in einem Fall etwas anders als gewollt. Meine Ini sieht in dem relevanten Beeich folgendermaßen aus:
Delphi-Quellcode:
Die Edit-Felder EditVrname und EditNachname enthalten die entsprechenden Daten.
[OpenPR]
URL=http://www.openpr.de/news/einstellen.html F1N=name F1W=EditVorname.Text + ' ' + EditNachname.Text F2N=email F2W=EditEmail.Text Würde ich das nun (wie bisher) statisch machen, würde ich sagen:
Delphi-Quellcode:
Um das dynamisch zu machen, sage ich nun aber
Webbrowser1.Navigate('http://www.openpr.de/news/einstellen.html');
Delphi-Quellcode:
Das klappt auch einwandfrei.
Webbrowser1.Navigate(Ini.ReadString(ComboBoxPresseverteiler.Text, 'URL', ''));
Nun will ich die Felder (erst einmal nur das erste) ausfüllen lassen. Statisch würde ich bei Webbrowser1DocumentComplete sagen:
Delphi-Quellcode:
Nun will ich die Werte aber aus der Ini ziehen. Dazu habe ich folgendes geschrieben:
WebBrowser1.OleObject.document.forms.item(0).elements.item('name')).value := EditVorname.Text + ' ' + EditNachname.Text;
Delphi-Quellcode:
Der erste Teil klappt, d.h. es wird das richtige Forlularfeld eigetragen. Der zweite Teil klappt aber leider nicht. Es werden nicht die Inhalte von EditVorname und EditNachname eingetragen, sondern es wird genau das wortwörtlich eingetragen was in der ini steht, nämlich EditVorname.Text + ' ' + EditNachname.Text.
WebBrowser1.OleObject.document.forms.item(0).elements.item(Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', '')).value := Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1W', '');
Ist auch eigentlich klar, denn der Code steht zwischen zwei Hochkommas und sollt also wie er ist verwendet werden. Wenn ich die Hochkommas allerdings entferne, meckert der Compiler. Gibt's nen Weg um das Problem zu lösen? Oder muß ich erst alle Werte aus der Ini in Variablen schreiben und dann die Variablen einfügen? Grüße Holger Edit: Die Werte aus der Ini vorher in eine Variable einfügen habe ich gerade erfolglos probiert. Geht leider auch nicht. Mit Ini.ReadInteger geht's auch nicht. Hmmm.... |
AW: Ini-Wert nicht als string einfügen
Hallo,
Zitat:
Zitat:
Zitat:
Ich kenne jetzt Deine Anforderungen nicht, daher kann nur soviel: Schreib Dir die nötigen Funktionen (z. B. setze Vorname und Nachname zusammen),
Delphi-Quellcode:
in der INI steht dann z. B. F1W=1 und irgendwo in Deinem Programm
function ConcatGivenAndFamilyName : string;
begin Result := EditVorname.Text + ' ' + EditNachname.Text end;
Delphi-Quellcode:
Ich hoffe es ist soweit verständlich. Vielleicht hilft' s.
case Ini.ReadInteger (Section, 'F1W', 0) of
1 : WebBrowser1.(...).value := ConcatGivenAndFamilyName; end Gruß |
AW: Ini-Wert nicht als string einfügen
Nun ja, es gibt da auch noch die Möglichkeit von "Variablen" wie diese auch in der Delphi IDE benutzt werden.
Code:
Den Text parsen, den Variablennamen bestimmen und dann durch den jeweiligen Wert ersetzen.
F1W=$(vorname) $(nachname)
|
AW: Ini-Wert nicht als string einfügen
Unabhängig des Problems, meiner Kenntnis nach ist das keine gute Idee:
Code:
Kann sein, dass es inzwischen anders ist, aber als ich das letzten mal die Länge einer Ini Zeile testete, war die etwa 1024 Zeichen lang. Internetadressen können gelegentlich länger sein.
[OpenPR]
URL=http://www.openpr.de/news/einstellen.html Kann aber auch sein, dass die Beschränkung inzwischen weg ist. |
AW: Ini-Wert nicht als string einfügen
@Popov
Generell ist es eh nicht ratsam den Code so direkt ineinander zu weben. Ein bischen mehr Abstraktion und das Problem von morgen (Beschränkung der Ini-Datei wird relevant) ist spätestens übermorgen gelöst (statt INI jetzt ClientDataSet) und der Rest bekommt das gar nicht mit, weil egal |
AW: Ini-Wert nicht als string einfügen
Boaahh...alles Nachtarbeiter :-)
@Volker Vielen Dank. Ja, ist verständlich bzw. habe ich kappiert. Falls es aber irgendeinen anderen Weg gibt, dann wäre das superklassetoll, denn es sind insgesamt 20 Felder mit jeweils 20 Werten. Ich müsste also 400 Werte ändern. @Sir Rufo Zitat:
Zitat:
Die Werte zu den eizelnen Feldern gelangen z.B. in die Ini indem ich hinter einer ComboBox die Captions (unsichtbarer) Labels bei einem OnChange-Ereignis ändere. Also: Ich trage in ein Editfeld F1 ein, daß das entsprechende Formularfeld "name" heißt und wähle dahinter in einer ComboboxF1 aus, daß es sich um Vor- und Zunamen handelt. Dadurch wird die Caption eines dahinter liegenden Labels entsprechend geändert und dieser Wert wird dann in die Ini gespeichert. ...und ich bin total stolz, daß mir diese ösung eingefallen ist :-) Grüße Hoger |
AW: Ini-Wert nicht als string einfügen
Hallo,
ich habe leider immer noch ein Problem, Dein Problem zu verstehen. So wie ich es sehe: Du möchtest verschiedene URLs automatisiert aufrufen, die möglichen Eingabefelder aus einer INI-Datei füttern und letztlich das Form abschießen - soweit korrekt?. Dabei sind die Daten eigentlich immer die selben oder? (Dein Name, Deine eMail-Adresse ändert sich nicht) nur die unterschiedlichen Anbieter verlangen mal mehr mal weniger Info/Daten (soweit korrekt?). Wenn dem so ist, dann die entsprechenden Daten in der INI ablegen (z. B. in der Section z. B.  http://openpr.de/news/einstellen.html) und bei Bedarf entsprechend auslesen und den zugehörigen Controls (TEdit what so ever) zuweisen.
Code:
[http://openpr.de/news/einstellen.html]
F1N=name F1W=Michel aus Lönneberga F2N=email F2W=michel@loenneberga.sw
Code:
Soweit noch verständlich?
[http://iregendeineandereseite.html]
F1N=somename F1W=Michel Swenson F2N=mailto F2W=michel@loenneberga.sw Gruß |
AW: Ini-Wert nicht als string einfügen
Hi Volker,
ich verstehe was Du meinst. Geht aber leider nicht. Ich schreibe Pressemitteilungen nicht nur für mich, sondern auch noch für 2 Vereine. Die Kontaktdaten sind jeweils andere. Daher kann ich die nicht fest in einer Ini ablegen. Ganz zu schweigen von den Texten, die sich ja auch ändern. Das Problem hast Du genau erwischt. Manche Presseverteiler wollen Vor- und Nachnamen separat, manche wollen beides in einem Feld, einige wollen PLZ und Ort separat, andere beides in einem Feld u.s.w. Ich kann in der Ini also nur bestimmen was generell abgefrgt wird und die eigentlichen Informationen dann aus einem Formular ziehen. Ich bin jetzt gerade dabei das Ganze auf Deine Methode umzustellen, die Du etwas weiter oben genannt hast. Finde ich gut. Das bißchen Arbeit tut ja nicht weh. Allerdings habe ich da meine liebe Not. Eine erste funktion sieht folgendermaßen aus:
Delphi-Quellcode:
Das Problem entsteht beim Einfügen von VorundZuname.
function VorundZuname (EditVorname, EditNachname: TEdit) : string;
begin Result := EditVorname.Text + ' ' + EditNachname.Text; end;
Delphi-Quellcode:
Der Compiler sagt: Not enough actual parameters und setzt den Cursor hinter die Klammer nach VorundZuname.
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); case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F1W', 0) of 1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), VorundZuname) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden'); end ; Ini.Free; end; |
AW: Ini-Wert nicht als string einfügen
Hallo,
Zitat:
Delphi-Quellcode:
deklarierst, dann sollten schon auch zwei Parameter übergeben werden, also ein:
VorundZuname (EditVorname, EditNachname: TEdit) : string;
Delphi-Quellcode:
soltte es tun
if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), VorundZuname ('Michel', 'Lönneberga')) then
Gruß |
AW: Ini-Wert nicht als string einfügen
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.
Das habe ich jetzt mal versucht und es klappt. Wenn F1W=1 nimm die Werte aus EditVorname plus EditNachname, wenn F1W=2 nimm nur den Wert aus EditVorname, wenn F1W=3 nimm nur den Wert aus EditNachname u.s.w. Insofer wäre mein Problem gelöst. Ist nur viel Arbeit. Vielen Dank und schöne Grüße Holger |
AW: Ini-Wert nicht als string einfügen
Hallo,
Zitat:
Zitat:
Gruß |
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:
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.
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)... Wie kann ich das verhindern? |
AW: Ini-Wert nicht als string einfügen
Hallo,
Zitat:
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ß |
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. |
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.
|
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. |
AW: Ini-Wert nicht als string einfügen
Zitat:
Wurde dir nicht schonmal gesagt, daß man
Delphi-Quellcode:
einfach nicht mache?
if ... = False then
Und die Fehlermeldung
Delphi-Quellcode:
ist auch geil, denn die sagt absolut nichts, vorallem nicht das Wichtigste, also was nicht gefunden wurde.
ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden')
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 ... |
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. |
AW: Ini-Wert nicht als string einfügen
Und wenn man der Form ein paar
Delphi-Quellcode:
Properties spendiert, dann geht das alles mit noch viel weniger.
published
Delphi-Quellcode:
Der Zugriff erfolgt dann ganz simpel mit
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;  GetPropValueWird also FullName benötigt, dann
Delphi-Quellcode:
, und da PropName ein string ist, kann man diesen Wert aus der Ini lesen und ganz easy den benötigten Wert auslesen.
Value := GetPropValue( MyForm, 'FullName' );
Und mit Delphi 7 geht das auch ;) |
| Alle Zeitangaben in WEZ +1. Es ist jetzt 05:27 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz