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.