formular daten an memo übergeben...

[Headi]

hallo leute,

Folgendes:

Ich habe:

name: [edit1]
vorname: [edit2]
strasse: [edit3]
...
...
usw.

ich möchte jetzt, dass der user seine daten eingeben kann und dann auf button1 klicken.
Dann erscheint eine form2 mit memo1 wo dann die daten stylisch im bbcode angezeigt werden.

jetzt so wie ich das hier habe ist es ja kein problem.
Nur bei meinem echten projekt sind das viel mehr Daten.
Theoretisch wäre das ja auch kein probelem aber ich muss immer damit rechnen dass er ein Feld lehr lässt, welches
dann auch nicht im bbcode enthalten sein darf, was dann auch wieder ein problem mit den zeilenumbrüchen hervorrufen würde.

wie löse ich das jetzt am besten?
bei jedem feld ne if abfrage ist ja auch blöde!?

Und dann auch noch ich habe mehrere groupboxes, wenn jetzt keines der felder in einer groupbox ausgefüllt ist,
soll die ganze groupbox nicht im bbcode enthalten sein.
Was auch noch ein Problem ist, ich möchte dass der user eigene styles laden kann.


Ich kann das natürlich auch kompliziert machen:

Delphi-Quellcode:

var name:string;
vorname:string;
strasse:string;

begin
name:='[b]Name: [/b]'+edit1.text+#13#10;
vorname:='[b]Vorname: [/b]'+edit2.text+#13#10;
strasse:='[b]Strasse: [/b]'+edit3.text+#13#10;
if edit1.text='' then
name:='';
if edit2.text='' then
vorname:='';
if edit3.text='' then
strasse:='';
form2.RichEdit1.Text:=name+vorname+strasse;
form2.ShowModal;
end

bitte helft mir ich habe einfach noch nicht die perfekte Idee gehabt.. :cry:


sorry schon wieder so viel text...
ich hoffe ihr könnt mir trotzdem helfen

mfg headi

[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.

[Headi]

Zitat:

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

Delphi-Quellcode:

if edit3.Text<>'' then

macht das das gleiche wie

Delphi-Quellcode:

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 :lol:
das sieht ja besser aus als ich dachte

vielen dank schon mal

mfg headi

[omata]

Moin,

ich habe da mal eine Frage.
Was heißt stylisch? Meinst du vielleicht stylistisch?
Oder würde man das noch anders betiteln? Aber stylisch ist irgendwie komisch.

Oder sehe ich das völlig falsch?
Dieser Titel zur Zeit auf der Hauptseite, da bekommt man ja Augen****.

Leicht verwunderte Grüsse
Thorsten

[Headi]

Zitat:

Zitat von omata

Moin,

ich habe da mal eine Frage.
Was heißt stylisch? Meinst du vielleicht stylistisch?
Oder würde man das noch anders betiteln? Aber stylisch ist irgendwie komisch.

Oder sehe ich das völlig falsch?
Dieser Titel zur Zeit auf der Hauptseite, da bekommt man ja Augen****.

Leicht verwunderte Grüsse
Thorsten

Mit stylisch meine ich einfach strukturiert, also zeilenumbrüche sowie verschiedene farben, fett kursiv....

[omata]

Ja, ist schon ok. Das habe ich mir dann, nach dem Lesen deines Eingangthreads auch gedacht. Nur ist stylisch richtig und gibt das überhaupt?

Man kann sich doch nicht einfach Wörter ausdenken und dann schreiben was man eigentlich meint. Wie wäre es mit einem Wort, das dann auch das beschreibt, was man meint.

Naja, ist auch egal. Ich wollt nur mal fragen.

Nichts für ungut
Thorsten

[Headi]

also ich denke ich kann das gut mit der funktion von jim_raynor lösen.
Nur jetzt bleibt immer noch die frage:

• wie soll ich die zeilenumbrüche einfügen, so dass wenn eine ganze groupbox nicht ausgefüllt ist dass dann auch kein zeilenumbruch da ist?
• was bedeuted das <> bei if edit1.Text<>'' then
• wie soll ich so ein style am besten speichern um dann auch wieder auszuführen?

bitte helft mir

mfg headi

[jim_raynor]

1. Wenn du doppelte Leerzeilen löschen willst, kannst du einfach die einzelnen Zeilen am Ende durchgehen und doppelte Löschen.

Delphi-Quellcode:

// Minus zwei, da ich immer auf die nächste Zeile schaue
for Dummy:=Form2.RichEdit1.Lines.Count-2 downto 0 do
begin
  if (Form2.RichEdit1.Lines[Dummy]='') and (Form2.RichEdit1.Lines[Dummy+1]='') then
    Form2.RichEdit1.Lines.Delete(Dummy)
end;

2. <> = unglich ;) also das gleiche wie if not (Edit1.Text='') then ...

[Headi]

Zitat:

Zitat von jim_raynor

1. Wenn du doppelte Leerzeilen löschen willst, kannst du einfach die einzelnen Zeilen am Ende durchgehen und doppelte Löschen.

Delphi-Quellcode:

// Minus zwei, da ich immer auf die nächste Zeile schaue
for Dummy:=Form2.RichEdit1.Lines.Count-2 downto 0 do
begin
  if (Form2.RichEdit1.Lines[Dummy]='') and (Form2.RichEdit1.Lines[Dummy+1]='') then
    Form2.RichEdit1.Lines.Delete(Dummy)
end;

2. <> = unglich ;) also das gleiche wie if not (Edit1.Text='') then ...

Ja also das mit den leerzeichen kann ich ja mit

Delphi-Quellcode:

if  (TrimLeft(Edit.Text) = '' then

machen.

Die frage ist ja wie mache ich das mit den zeilen umbrüche...
hmmm... ich versuche hier das nochmals zu erklären:


also ich habe drei groupbox und nach jeder kommt eine lehre zeile also ein zeilenumbruch

-------------
groupbox1
-------------
leere zeile1
-------------
groupbox2
-------------
leere zeile2
-------------
groupbox3
-------------
leere zeile3
-------------


so ich habe jetzt in jeder groupbox felder, wenn jetzt am schluss kein feld in einer groupbox ausgefüllt ist, wird dieses nich miteingezogen, im beispiel jetzt kein feld von groupbox2 hat einen inhalt das bedeuted groupbox2 fällt weg...

-------------
groupbox1
-------------
leere zeile1
-------------
-------------
leere zeile2
-------------
groupbox3
-------------
leere zeile3
-------------

da jetzt groupbox2 fehlt kommen leere zeile1 und 2 aufeinander.
ich möchte jetzt da aber nur eine leere zeile.


so ich hoffe ihr habt das so verstanden.


mfg headi

[tigerman33]

Sieh die mal die Property Controls bzw. Components an. Damit kannst du durch die Unterkomponenten von deiner Groupbox iterieren. Damit sparst du dir das "von Hand abfragen" aller deiner Edits.

Delphi-Quellcode:

const Prefixes: array[0..???] of string = ('Name', 'Vorname', ...);
var i,j:integer; 
begin
  j := 0;
  for i := 0 to (Groupbox1.ControlCount - 1) do // Controls in Groupbox1 durchlaufen
    if Groupbox1.Controls[i] is TEdit then begin // Nachsehen ob es ein Editfeld ist
      AddBBCode(Prefixes[j], (Groupbox1.Controls[i] as TEdit).Text); 
      // Wenn ja, mit der Prozedur von jim_raynor hinzufügen
      inc(j); // Und nächstes mal den nächsten Prefix-String nehmen
    end;
end;

In das array Prefixes schreibst du alle "Datenbezeichner" rein. Ist natürlich noch nicht ganz druckreif der Code, aber ich denke wenn du das überhaupt so machen möchtest, müsstest du es relativ leicht auf deine Bedürfnisse (insbesondere mehrere Groupboxes) anpassen können. :)