Entwickler-Ecke

Sonstiges (Delphi) - Memo Inhalt ändern u. in Datei speichern


oPPi - Mi 14.08.02 15:55
Titel: Memo Inhalt ändern u. in Datei speichern
Hallo,

ich habe in einem Memofeld nen HTML-Quelltext. In der Zeile 12 ab Zeichen 3 soll der Inhalt aus aus einem Label eingefügt werden. Der
einzufügende Inhalt ist 15 Zeichen lang. Nach dem der Labelinhalt in das Memofeld
eingefügt wurde soll der Inhalt des geänderten Memos in eine html-Datei gespeichert werden.

Wie ich den Inhalt speichere is mir schon klar

Quelltext
1:
2:
3:
4:
5:
procedure TForm2.Btn_SaveClick(Sender: TObject);
begin
  Memo_html.Lines.SaveToFile('ftp.html');
  ShowMessage('Die HTML-Datei wurde gespeichert !!!');
end;


Ich müßte nur wissen wie ich den Inhalt laut obiger Beschreibung ändern kann.

Könnte mir da jemand auf die Sprünge helfen

Gruß

oPPi


Deykin11 - Mi 14.08.02 16:23

Naja, so sollte es gehen:


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
procedure TForm2.Btn_SaveClick(Sender: TObject); 
var sZeile:String
begin
  sZeile := Memo_html.Lines.Strings[11]; {Zeile 12 in sZeile zwischenspeichern}
  insert(Label.Caption,sZeile,2); {LabelCaption wird in sZeile an pos 3 eingefügt}
  Memo_html.Lines.delete(11);{alte Zeile wird gelöscht}
  Memo_html.Lines.Insert(sZeile,11);{neue Zeile wird eingefügt}
  Memo_html.Lines.SaveToFile('ftp.html'); 
  ShowMessage('Die HTML-Datei wurde gespeichert !!!'); 
end;


oPPi - Mi 14.08.02 20:14

Hy,

hab mal deinen Code probiert es kommt ne Meldung:

Inkompatible Typen 'Integer' und 'String' bei


Quelltext
1:
Memo_html.Lines.Insert(sZeile,11);{neue Zeile wird eingefügt}                    


Es müßte so heißen:

Quelltext
1:
Memo_html.Lines.Insert(11, sZeile);{neue Zeile wird eingefügt}                    


Danke

oPPi


Deykin11 - Mi 14.08.02 22:37

Oh ja, hast recht... sowas kommt dabei raus wenn man einfach so einen Code postet ohne ihn zu testen.