Memofeld in StringList einlesen?

[s-off]

Zitat:

Zitat von Borschti

Hmm Assign würde doch das gleiche machen oder? Also würde doch auch den Textinhalt mit übertragen oder nicht?

Ja, würde es.

Euer Vorgehen finde ich allerdings ein bissel von hinten durch die Brust ins Auge.
Warum designed Ihr Eure Oberfläche nicht so, dass das Problem, das Ihr jetzt habt, gar nicht erst auftreten kann?

Edit:

Zitat:

Zitat von Borschti

Meinst du mit explizit hinzufügen oder entfernen, dass ich das im Objektinspektor machen soll?

Nein, ich meine damit, dass Du mit Lines.Delete bzw. Lines.Insert Zeilen hinzufügst, bzw. löschst.
Aber wie gesagt, ich würde in diesem Fall die Ursache beheben.

[marabu]

Hallo Alex,

wenn keine harten Zeilenumbrüche im Memo erlaubt sind, dann kann man WantReturns abschalten. Wenn nur versehentlich am Ende angehängte Leerzeilen entfernt werden sollen, dann gibt es mehrere Möglichkeiten - hier eine:

Delphi-Quellcode:

with Memo do Lines.Text := Trim(Text);

Grüße vom marabu

[Borschti]

Ist nicht komplett unser Programm, wir bieten unseren Kunden nur die Warenwirtschaft und einige speziell für sie entwickelte Applikationen an. Also die Warenwirtschaft selbst kommt nicht von uns.

@Marabu: Danke dir, Trim kannte ich bis jetzt auch noch nich ;)

[NormanNG]

Hi,

und wenn mehrere CRLF drin sind, gehts auch so

Delphi-Quellcode:

  Memo2.Text := AnsiReplaceText( AnsiReplaceText( Memo1.Text, #13, #32 ), #10, '');

[Borschti]

Danke euch allen für eure Hilfe :-D

[Borschti]

Eine letzte Frage habe ich allerdings noch :oops:

Kann man die von Trim() entfernten Zeilenumbrüche irgendwie zählen, oder kann man die, die am Anfang oder Ende stehn direkt im String zählen?

mfg
Alex

[Nuclear-Ping]

[OT]
Sorry, aber wenn ich sowas lese: Du programmierst - scheinbar als extrem blutiger Anfänger - SO für Kunden? :shock:

Wenn das geht, bewerbe ich mich demnächst auch als Pilot bei Germanwings, weil ich schon über 500 Flugstunden mitm A320 im MS Flusi hab. :thumb:
[/OT]

[s-off]

Schau Dir SysUtils.Trim an, und bau Dir daraus Deine eigene Trim-Funktion.
Da der Rückgabewert ja schon belegt ist übergibst Du dann neben dem zu trimmenden String einen Var-Paramter vom Typ Integer, in dem Dir die Anzahl der gelöschten Zeilenumbrüche zurückgegeben werden.

Edit:
@Nuclear-Ping: ich denke mal, dass darüber noch jemand sein Händchen halten wird, und das nicht ungesehen released wird ;)

[marabu]

Die Funktion liefert die Anzahl der entfernten Leerzeilen:

Delphi-Quellcode:

function TrimLines(s: TStrings): Integer;
begin  
  Result := s.Count;
  s.BeginUpdate;
  s.Text := Trim(s.Text);
  s.EndUpdate;
  Result := Result - s.Count;
end;

[Borschti]

Bin Auszubildender im ersten Jahr ;) und das ist ja nicht direkt für den, das verwenden Wir um das Feld ein wenig sauber zu halten^^