abspeichern einer textdatei ohne lästigen Zeilenumbruch

[cRayZo]

Zitat:

Zitat von fortuneNext

Zusammenfassend gesagt ist was er will:

-Den Absatz am Ende entfernen
-Leere Zeilen entfernen

das wars denke ich schon... xD

Ich würds so probieren:

Delphi-Quellcode:

for i2:=0 to Richedit1.Lines.Count do
if Richedit1.Lines[i2]= ''
then Richedit1.Lines.Delete(i2);

ja hast Recht, genau das wollte ich sagen :D:D
Aber so wie du hab ichs schon versucht...trotzdem danke;)

aber ich versuche es jetzt auf eine andere Art
also..^^ @ p80286: sieht gut aus, ich habe, als ich meinen quellcode für euch kommentiert habe, bevor ich ihn posten wollte, einen anderen viel entscheidenderen Fehler entdeckt, bzw. wie ich es anders ebenfalls gut hinbekomme. Danke p80286 .. ^^


Nur ich habe eine Frage:

Wie kann ich irgendwo mitten in einer Prozedur sagen, dass er einfach wieder an den Anfang der Prozedur springt?
Also wenn ein fehler auftritt, dann korrigiere den Fehler und "starte die Prozedur neu"
keine Schleife oder so, sowas wie

procedure.TTest.FormShow.restart

gibt es so etwas ähnliches? das wär cool =)
ich wollte es ja dadurch erreichen, indem ich einfach schreibe

Test.Visible:=False; Test.Visible:=True
weil ich es im onShow verwenden muss.
Aber dort darf ich visible nicht verwenden..
gibt es eine andere Möglichkeit? Vielleicht einen befehl an ein anderes Fenster, der dann den visible-Befehl ausführt?

vielen Dank schonmal..

[DeddyH]

Wie wäre es denn mit einer Schleife?

[SirThornberry]

Warum schreibst du dir nicht deine eigene Speichernfunktion so wie du sie haben willst?

Beispiel (ungetestet):

Delphi-Quellcode:

var
  i: Integer;
  s: string;
  lStream : TStream;
begin
  lStream := TFileStream.Create(YourFileName, fmCreate);
  try
    for i := 0 to strings.count - 2 do
    begin
      s := strings.string[i] + #13#10;
      lStream.Write(s[1], Length(s));
    end;

    if (strings.count > 0) then
    begin
      s := strings.string[strings.count - 1];
      lStream.Write(s[1], Length(s));
    end;
  finally
    lStream.Free;
  end;
end;