Textdatei erstellen?

[tg39]

Hallo,

ich möchte eine Datei erstellen die ich anschließend mit FileStream "füllen" möchte. Es soll lediglich ein String hinein geschrieben werden, normalerweise würde ich es ja einfach ein Memo nehmen und mit Savetofile() arbeiten, allerdings ist das Programm nonvcl und ich finde keinen geeigneten Befehl um es umzusetzen.

Danke im voraus,

Gruß

[Pseudemys Nelsoni]

AssignFile(), ReSet(), ReWrite(), Append(), ReadLn(), WriteLn(), CloseFile()

[Bernhard Geyer]

Zitat:

Zitat von tg39

ich möchte eine Datei erstellen die ich anschließend mit FileStream "füllen" möchte. Es soll lediglich ein String hinein geschrieben werden, normalerweise würde ich es ja einfach ein Memo nehmen und mit Savetofile() arbeiten, allerdings ist das Programm nonvcl und ich finde keinen geeigneten Befehl um es umzusetzen.

Du könntest auch TStrings/TStringlist nehmen. Ist "nur" RTL/BaseCLX. Jedoch weiß ich nicht ob das noch als "nonvcl" durchgeht - Es werden ja schon "aufgeblähte" Klassen verwendet :gruebel:

[marabu]

Zitat:

Zitat von tg39

ich möchte eine Datei erstellen die ich anschließend mit FileStream "füllen" möchte. Es soll lediglich ein String hinein geschrieben werden

Diesen Spezialfall könnte man einfach so erschlagen:

Delphi-Quellcode:

procedure SaveString(s, fileName: string);
var
  fs: TFileStream;
begin
  fs := TFileStream.Create(filename, fmCreate);
  fs.Write(s[1], Length(s));
  fs.Free;
end;

Grüße vom marabu

und herzlich willkommen im Forum

[tg39]

Zitat:

Zitat von Bernhard Geyer

Zitat:

Zitat von tg39

ich möchte eine Datei erstellen die ich anschließend mit FileStream "füllen" möchte. Es soll lediglich ein String hinein geschrieben werden, normalerweise würde ich es ja einfach ein Memo nehmen und mit Savetofile() arbeiten, allerdings ist das Programm nonvcl und ich finde keinen geeigneten Befehl um es umzusetzen.

Du könntest auch TStrings/TStringlist nehmen. Ist "nur" RTL/BaseCLX. Jedoch weiß ich nicht ob das noch als "nonvcl" durchgeht - Es werden ja schon "aufgeblähte" Klassen verwendet :gruebel:

So würde ich es eigentlich am liebsten machen, da ich TStringList sowieso ganz gut gebrauchen könnte. Nur will ich nicht die ganze riesige Classes-Unit benutzen wo ja noch tausend andere Sachen enthalten sind, gibt es da eine Möglichkeit sich nur den für TStringList benötogten Code "herauszunehmen"?

Gruß

[Bernhard Geyer]

Du willst wohl die Classes.pas nicht einbinden?
Ist den der Exe-Größenzuwachs für dich so unakzeptabel?

[barf00s]

@tg39

türlich geht das.

[tg39]

Zitat:

Zitat von Bernhard Geyer

Du willst wohl die Classes.pas nicht einbinden?
Ist den der Exe-Größenzuwachs für dich so unakzeptabel?

Naja, das schöne am Verzicht der VCL ist ja eben die Größe und es ist schon etwas unbefriedigend wenn wegen eines Datentyps die .exe plötzlich fast 5x so groß ist :(

Zitat:

Zitat von barf00s

@tg39

türlich geht das.

Lass mich raten, aber es ist ein wahnsinniger Aufwand, right? Ich habe mir die Classes.pas mal angesehen, die ist sowas von verschachtelt, sämtliche Klassen sind x-fach von anderen abgeleitet, jede Klasse benutzt Funktionen einer anderen usw.
Da braucht man ja Jahre um alle benötigten Abhängigkeiten rauszusuchen :(
Gibt es für soetwas nicht ein spezielles Tool dass mir für eine paar bestimmte Funktionen alles wichtige rauskopiert? Wahrscheinlich nicht..

[barf00s]

dann schreib dir halt deine eigene TStringList implementation, wenns dir zu kompliziert iss das bisschen da aufzudröseln?

[Waldteufel]

Hi.

So gehts ohne StringList und FileStream:

Delphi-Quellcode:

procedure MeineDateiErstellen(filename, str: string);
var
  f : Text;
begin
  AssignFile(f, filename);
  Write(f, str);
  CloseFile(f);
end;

_______________________________________________

//edit:

@barf00s: Da hast du allerdings recht!

Delphi-Quellcode:

procedure MeineDateiErstellen(const filename, const str: string);
var
  f : Text;
begin
  AssignFile(f, filename);
  Rewrite(f);
  Write(f, str);
  CloseFile(f);
end;

//edit2:

Zitat:

Zitat von barf00s

Fehlt nur noch das Reset(F); btw das Rewrite(F) oder Append(F);

Ich schätz mal, du meinst nicht btw (= by the way = nebenbei/übrigens), sondern bzw (= beziehungsweise) ;-)

[barf00s]

Fehlt nur noch das Reset(F); btw das Rewrite(F) oder Append(F);

VOR dem Write()


und wenn man den parametern noch nen const verpasst bin ich auch zufrieden

[BlackJack]

Zitat:

Zitat von Waldteufel

Delphi-Quellcode:

procedure MeineDateiErstellen(const filename, const str: string);

ein const reicht.
so und jetzt in die ecke und schämen ;)

[tg39]

Zitat:

Zitat von barf00s

dann schreib dir halt deine eigene TStringList implementation, wenns dir zu kompliziert iss das bisschen da aufzudröseln?

Selbst eine eigene TStringList-Klasse zu bauen könnte gehen, im Grunde ist es ja nichts anderes als ein Array von Strings, oder?
Nur hab ich nicht so wirklich Ahnung von Typdeklarationen :(

[tg39]

@Walfteufel

Alles klar, habe mir mit den API-Befehlen jetzt Funktionen zum Datei schreiben/lesen/Text anhängen geschrieben, danke für das Beispiel, hat mir sehr geholfen :-D

@All

http://www.swissdelphicenter.ch/de/showcode.php?id=1159

Auf dieser Seite ist von einem gewissen "TStringList replacement by ~LOM~" die Rede, dummerweise scheine ich zu spät zu kommen, denn der Link funktioniert nicht mehr :wall:

Hat das irgendwer noch auf seiner Festplatte schlummern oder kann mir einen funktionierenden Link geben?

Danke im voraus,

tg39

[toms]

Zitat:

Zitat von tg39

@All

http://www.swissdelphicenter.ch/de/showcode.php?id=1159

Auf dieser Seite ist von einem gewissen "TStringList replacement by ~LOM~" die Rede, dummerweise scheine ich zu spät zu kommen, denn der Link funktioniert nicht mehr :wall:

http://www.virusexchange.org/positro...i/tstrlist.rar

[TheCatcher]

Auch ich scheine zu spät zu sein hat jemand noch "TStringList replacement by ~LOM~"??

Danke