Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
13. Apr 2007
@shima, ja so könnte es mal aussehen. Ich taste mich da halt langsam vor, damit ich mit dem Umgang mit Strings mehr Übung erlange.
@muetze: Ich habe - zugegeben - nach dem guten alten Trail and Error-Prinzip mit mehreren Filemodes
und Ein/Ausgaberoutinen gearbeitet, bin aber nicht weiter gekommen. Sonst hätte ich ja nicht gepostet!
Aber letztendlich habe ich es selber so hinbekommen, wie...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
13. Apr 2007
Wie es aussieht, fange ich mit dieser Lösung - bis jetzt - jeden Fall auf:
Memo1.Lines.Add('</p>');
Writeln(f, Memo1.Text);
closefile(f);
Memo1.Lines.LoadFromFile('d:\editor2\daten.html');
Memo1.Text := StringReplace(Memo1.Text, '
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
12. Apr 2007
Ok, ich beschreibe das Problem! Vielleicht gibt es ja eine ganz andere Lösung!
Ich hab nen Memo mit einem
.
Mit der Enter-Taste füge ich ein </p> ein, d.h. die Tags sind geschlossen und ein neues
wird bereit gestellt.
1. Fall: Der Nutzer schreibt eine Zeile und speichert ohne Enter-Taste, d.h. mir fehlt das </p>, also Memo1.Lines.Add(</p>);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
12. Apr 2007
Am writeln liegt es nicht!
Es hat was damit zu tun, wie das Dokument zum zweiten mal geöffnet und zum Verarbeiten bereit gestellt wird. So würde ich das Laienhaft einschätzen
...
if count = 0 then Memo1.Lines.Add(</p>)
else
Memo1.Lines.Delete(Memo1.Lines.Count - 1);
end;
writeln(f, Memo1.Text);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
12. Apr 2007
Closefile habe ich schon rausgenommen.
Es hat was mit Fallunterscheidung zu tun, wie das Dokument abgespeichert werden soll. Nehme ich das zweite writeln raus, läufts!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
12. Apr 2007
Ich habe mir die Fehlermeldungen schon angesehen.
Nur weiss ich nicht, wo mein Fehler im Code ist.
Entweder ist er generell falsch oder es ist nur eine Kleinigkeit, die ich übersehe!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
12. Apr 2007
Am Pfad liegt´s nicht!
Der Debugger springt jetzt zum letzten Writeln mit E/A 105!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
12. Apr 2007
Ein Hallo an ALLE,
Ich versuche einen Text zu speichern und bekomme immer - je nachdem welche Variante ich probiere, E/A 32, 104, 105. Ich seh aber den Fehler nicht! Könnt Ihr mal kurz einen Blick drauf werfen, vielleicht sieht ja jemand, woran es hakt!
Viele Grüsse, moperswings
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.SelStart := 3;
end;