Hallo Zusammen,
das Problem ist nun gelöst - dank Eurer Hilfe.
Also kurze Beschreibung, wie ich vorgegangen bin.
1. Ich habe mir meine Vorlage unter Word erstellt und dann als "gefilterte
HTML" Datei abgespeichert.
2. Habe den QuellCode mit dem Texteditor geöffnet und die Vabrialen Einträge durch "Variablen" (Markante eindeutige Wörter) ersetzt
3. Habe mit nachfolgender Zeile den Text in eine TStringList eingelesen
Delphi-Quellcode:
// Programmpfad ermitteln
Pfad:=ExtractFilePath(ParamStr(0));
Pfad:=Pfad+'\Temp\KommentarMailVorlage.txt';
.
.
.
st.LoadFromFile(pfad);
4. Dann die einzelnen Variablen mit nachstehender Zeile ersetzt (Text vorher den Variabel-Inhalt zugewiesen)
st.Text:=StringReplace(st.Text, 'AUFTRAGSNR', Text,[rfReplaceAll, rfIgnoreCase]);
5. Dann habe ich mir mit nachstehendem Code meine
HTML-Tabelle zusammengebaut
Delphi-Quellcode:
for i:=1 to Kommentare.RowCount - 1 do
begin
Text:=Text+'<tr>'+#13#10;
for j:= 0 to Kommentare.ColCount - 1 do
begin
Text:=Text+'<td><p class=MsoPlainText>'+#13#10;
Text:=Text+Kommentare.Cells[j,i]+#13#10;
Text:=Text+'</td>'+#13#10;
end;
Text:=Text+'</tr>'+#13#10;
end;
Text:=Text+'</table>'+#13#10;
6. Und als letztes diesen zusammengebauten Code an die Stelle der Variable TABELLE in meiner Stringlist ersetzt
st.Text:=StringReplace(st.Text, 'TABELLE', Text,[rfReplaceAll, rfIgnoreCase]);
Ich habe aus Euren Antworten diesen Mix als den am besten funktionierenden angesehen.
Vielen Dank für Eure Hilfe - das wäre sonst nie was geworden.
Gruß
Ykcim