Einzelnen Beitrag anzeigen

Headi

Registriert seit: 17. Nov 2005
Ort: Weinfelden
101 Beiträge
 
Delphi 2007 Professional
 
#3

Re: formular daten stylisch in memo einfügen...

  Alt 16. Dez 2005, 17:14
Zitat von jim_raynor:
Warum nicht einfach:

Delphi-Quellcode:
if edit1.text<>'then
  Form2.RichEdit1.Lines.Add('[b]Name: [/b]'+edit1.text);

if edit2.text<>'then
  Form2.RichEdit1.Lines.Add('[b]Vorname: [/b]'+edit2.text);

if edit3.text<>'then
  Form2.RichEdit1.Lines.Add('[b]Strasse: [/b]'+edit3.text);


Oder schreib dir doch einfach eine Funktion:

Delphi-Quellcode:
procedure TFOrm1.AddBBCode(Name, Text: String);
begin
  if Text<>'then
    Form2.RichEdit1.Lines.Add('[b]'+Name+'[/b]:'+Text);
end;
Dann kannst du ganz einfach eine Zeile mit AddBBCode('Name',edit1.Text) hinzufügen bzw. halt nicht.
danke sieht ja eigentlich schon mal nicht schlecht aus!
wie ist das mit if edit3.Text<>'then macht das das gleiche wie if (TrimLeft(Edit3.Text) = 'then) also wegen den leerzeichen?

Und wie ist das wenn ich jetzt 3 groupboxes habe?
wenn ich jetzt für einen zeilenumbruch nach einer groupbox jedes mal richedit1.lines.add(zeilenumbruch) schreiben würde,
dann aber z.B. die groupbox in der mitte ganz leer wäre dann würden sich ja die zeilenumbrüche stauen?!

Achja wie überprüfe ich ganze groupboxen sammt feldern also wie schon gesagt ist kein feld ausgefüllt fällt groupbox weg ist ein feld ausgefüllt wird groupbox hinzugefügt?



Dann zu der funktion:
Ich glaube das wäre ein bisschen kompliziert, da mein name ja in einem label steht und der text in einem edit, da müsste ich ja zuerst immer ein label zu einem edit hinzufügen.
Abgesehen davon würde dann die formation (zeilenumbrüche...) nicht mehr wirklich gut gehen oder?


EDIT:
achso hab noch was übersehen... mit funktionen hab ich mich halt noch nicht so beschäftigt
das sieht ja besser aus als ich dachte

vielen dank schon mal

mfg headi
Pascal
  Mit Zitat antworten Zitat