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