Zeilenvorschub

[Christian_1980]

Hi,

ich habe folgendes Problem: Ich möchte einen String in eine Datei schreiben und dann einen Zeilenumbruch bewirken. Was muss ich am untenstehenden Code verändern?

mit Text := Text + #10#13 + nächster Text geht das nicht... kann mir da jemand helfen?

hier der Code:

Delphi-Quellcode:

var Datei: TFileStream;
    Text: String;
    Count: Integer;
begin
 Text := Edit1.Text;
 Count := Length(Text);
 try
  Text := Text
  Datei := TFileStream.Create('c:\WinNT\Temp\StreamTest.txt',fmcreate);
  Datei.WriteBuffer(Text[1], Count);
 finally
  Datei.Free;
 end;

Danke schonmal im Voraus für eure Hilfe

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[Alexander]

Auch einfach einen #13#10 hintersetzen, so rein theoretisch...
Kann es leider im Moment nicht testen, weil ich in der Schule bin...

[Christian Seehase]

Moin Christian,

die einzige Änderung müsste sein:

Code:

Text := Edit1.Text[color=red]+#13#10[/color];

übrigens würde ich eine Variable nie Text nennen, da es diesen Begriff auch als Eigenschaft von Komponenten gibt.
Am Besten versiehtst Du Variablen mit einem Prefix, der den Typ angibt (z.B. sText : string;), dann siehst Du sofort welchen Typ die Variable hat, und vermeidest viele Konflikt mit eventuell schon verwendeten Bezeichnern.

[Christian_1980]

Dankeschön, aber es geht leider noch nicht !

Also ich habe jetzt folgende Änderung vorgenommen:

Delphi-Quellcode:

var Datei: TFileStream;
    sBeispiel: String;
    Count: Integer;
begin
 sBeispiel := Edit1.Text;
 Count := Length(sBeispiel);
 try
  sBeispiel := sBeispiel + #13#10 + 'nächste Zeile';
  Datei := TFileStream.Create('c:\WinNT\Temp\StreamTest.txt',fmcreate);
  Datei.WriteBuffer(sBeispiel[1], Count);
 finally
  Datei.Free;
 end;
end;

Ok, an den Präfix hätte ich auch denken müssen. Dennoch: Wenn ich mir die Datei nach dem Ausführen des Codes mit dem Editor Ansehe, gibt es nur eine Zeile - nämlich den Beispieltext aus dem Editfeld. Zeilenvorschub und Text "nächste Zeile" wurden nicht in die Datei geschrieben. Woran das liegt ist mir nicht klar, ihr sagt ja selbst, dass es so gehen müsste. :zwinker:

Woran kann es sonst evtl noch liegen?

Christian

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[Christian Seehase]

Moin Christian,

erst einmal ein Tip zum überlegen:
Wovon hängt es ab, wieviele Zeichen in die Datei geschrieben werden?

[Christian_1980]

Uff.. ich bin so dämlich.. ja.. stimmt :wall:

ich sollte die Länge des Textes natürlich erst hinterher bestimmen ....

*grummel*

und mit sowas behellige ich das Forum.. sorry :cyclops:

DANKE!

[Christian Seehase]

Moin Christian,

bitte, gerne.

Zitat:

Zitat von Christian_1980

und mit sowas behellige ich das Forum.. sorry

Manchmal braucht man halt ein paar Augen zusätzlich ;-)
Das offensichtliche zu übersehen ist bestimmt jedem schon mehrfach passiert.

[RomanK]

Hoi,
hab mal ne Frage:
Warum verwendest du keine StringList ???
Mit der sollte es um einiges einfacher sein, Strings in eine Datei zu speichern. Kann natürlich sein, dass du aus einem bestimmten Grund den "Umweg" über ein FileStream suchst. Falls du aber nur "stinknormale" Strings speichern willst, würde ich mir mal StringList anschauen.

[Christian_1980]

Hallo :-D

Warum ist mein Weg ein "Umweg"?

Ist doch eigentlich sehr kurz - find ich :stupid:

Wo ich schon beim Fragenstellen bin :arrow: Wie lang darf der obige String eigentlich maximal sein, bevor es zu etwaigen Problemen kommt?

:dp:

[Christian Seehase]

Moin Christian,

Zitat:

Zitat von Christian_1980

Wie lang darf der obige String eigentlich maximal sein, bevor es zu etwaigen Problemen kommt?

knapp 2 GB.

[himitsu]

Mit 32 Bit gingen 4 GB, da aber mit Integer gearbeitet wird nur 2 GB. (negativer Speicherbereich, wer is'n auf die Idee gekommen)
Bei 64 Bit geht das bald bis 8 EB (Exa-Byte). (natürlich nur, wenn so viel vorhanden ist)

Ein großer Teil aktueller Software, darunter auch Delphi 4 ..., kommt schon mit der verkürzten Form (#13) zurecht.

#10 = Zeilenvorschub (Cursor auf nächste Zeile)
#13 = Wagenrücklauf (Cursor an Zeilenanfang)

[Christian Seehase]

Moin himitsu,

umgekehrt:

#13 = CR = Carriage Return (Wagen Rücklauf)
#10 = LF = Line Feed (Zeilenvorschub)

Da ein Prozess einen Adressraum von 4GB zugeteilt bekommt, von dem sich aber das OS 2 GB reserviert, bleiben für die Anwendung 2GB über, also reichen 2GB ;-)

[himitsu]

Stimmt, hab noch mal schnell nach geschaut. War nur anders in Erinnerung.

Dachte der Drucker wechselte erst die Zeile und fuhr dann zurück. (#13 #10)