dateigröße ermitteln

[markus lemcke]

hi,

es scheint viele möglichkeioten zu geben die dateigröße zu ermitteln! filesize scheint wohl die schlechteste zu sein, weil sie bei textdateien versagt! und genau da brauche ich es! wie zuverlässig ist das hier:

<pre>
<code><font size=3 face="Courier New"><font color="#0000FF"><b>Function </b></font>Tmain.GetFileSize1(dateiname:<font color="#0000FF"><b>string</b></font>): Integer;
<font color="#0000FF"><b>var </b></font>Source: TFiLeStream;
<font color="#0000FF"><b>begin
try
</b></font>Source:= TFiLeStream.Create(Dateiname,fmOpenRead);
<font color="#0000FF"><b>except
</b></font>verwendet := dateiname;
abort;
<font color="#0000FF"><b>end</b></font>;
Result := source.size;
Source.free;
<font color="#0000FF"><b>end</b></font>;
</font>
</code></pre>

gruß

markus

[markus lemcke]

p.s.
ha! was für eine formatierung! mein selbstgebauter programmieditor begeistert mich einfach :

[Ulrich Gerhardt]

Hi Markus,<br>
hast du auch den HTML-Export mit Syntaxhighlighting selber gebaut? {lechz} Bisher benutze ich dafür GExperts, aber seit dem letzten Update produziert der Unmengen an HTML-Code, die die Forumsbeschränkungen sprengen. :-(
<br>Ciao, Uli

[Jens Schumann]

<font face="Verdana" size="2" color="#000000">Hallo Markus,<br>
Dein Vorschlag ist nicht so sicher.<br>
Deine Funktion erzeugt eine Exception wenn die Datei geöffnet ist.<br>
Probier mal eine Excel-Datei, die Du zuvor mit Excel geöffnet hast, zu verarbeiten.<br>
Ich würde es so probieren:<br>
</font><pre>
<font face="Verdana" size="2" color="#000000"><font face="Verdana" size="1" color="#080000">function TForm1.MyGetFilesize(const Filename: TFilename): Integer;
var
FFileStream : TFileStream;
begin
Result:=-1; // Fehlgeschlagen
FFileStream:=TFileStream.Create(Filename,fmOpenRea d or fmShareDenyNone);
Try
Result:=FFileStream.Size;
Finally
FFileStream.Free;
end;
end;
</font></font></pre>
<font face="Verdana" size="2" color="#000000">Durch fmShareDenyNone wird keine Exception erzeugt wenn die Datei schon geöffnet ist.<br>
Dadurch, dass Du im except Abschnitt mit abort eine stille Exception erzeugst, kann es <br>
passieren, dass Result undefiniert ist. Ist die Variable verwendet eine globale Variable ?<br>
</font><br&gt

[markus lemcke]

@ulrich! nö, kann die tsyneditkompo!

gruß

marku

[markus lemcke]

@jens die variable verwendet habe ich inzwischen entfernt! war ausversehen drin, hat da nichts verloren!<br>
werde mal deinen vorschlag testen! danke!

gruß

marku

[Ulrich Gerhardt]

Danke, Markus!<br>Uli

[markus lemcke]

hi ulrich,

hast du interesse an dem editor wenn er fertig ist?<br>
er wird freeware werden, weil ich mal so richtig hohe downloadzahlen erreichen will

gruß

marku

[Ulrich Gerhardt]

@markus: Was kann er denn alles so?<br>Uli

[markus lemcke]

hier, das ist mal ein zwischenstand! ist aber noch nicht fertig:

<pre>
<code><font size=3 face="Courier New"><font color="#000000">syntaxhervorhebung f&uuml;r die gängigsten programmiersprachen(pascal,C,javas,php,html usw)
lesezeichen gibt es genau wie im delphi-editor
man kann ränder einstellen,
per drag&amp;drop eine datei reinziehen
per drag &amp; drop texte verschieben
exportieren in html
zeilennummern ein und ausblenden
scrollbars anzeigen oder nicht
suchen ersetzen
editortastenk&uuml;rzel und men&uuml;tastenk&uuml;rzel ändern
und das &uuml;bliche dateimen&uuml; eben!
alles schliessen
und alles speichern
autosave
datei an cursposition einlesen
sicherungskopie beim speichern anlegen
zwischenablage erweitern
standardverzeichnis festlegen
externe programme aufrufen mit aktuell geöffneter datei!
(gut f&uuml;r browser oder externe compiler!)
es kamm noch eine schnellansicht f&uuml;r bilder hinzu.
ein dateifenster
man kann den relativen pfad eines bildes einf&uuml;gen
man kann einen html-pfad eines bildes einf&uuml;gen
man kann die quellcodedatei als html in die zwischenablage kopieren
start mit parameter!

</font>
</code></pre>

gruß

marku

[Ulrich Gerhardt]

Das ist ja ne ganze Menge! Kann er Suchen und Ersetzen auch mit regulären Ausdrücken? Vor allen beim Ersetzen wäre das interessant -- da komme ich beim Delphi-Editor auf keinen grünen Zweig.
<p>Jedenfalls würde ich das Teil schon mal ausprobieren.
<p>Uli

[markus lemcke]

hi,

was meinst du mit <b>regulären Ausdrücken</b>?

gruß

markus

p.s. mit dem testen kann es noch paar tage gehen! möchte zuerst noch, dss einer meiner tester sich das ding zur brust nimmt und ne hilfe fehlt auch noch

[Ulrich Gerhardt]

Da ich zu dämlich bin, reguläre Ausdrücke vernüntig zu erklären,
hier ein Link: :-)<br>
http://www.lrz-muenchen.de/services/schulung/unterlagen/regul/
<p>Uli

[markus lemcke]

naja, also mir ist nicht ganz klar was das sein soll! auf jeden fall kann man nach jedem xbeliegen string suchen!

gruß

marku

[Ulrich Gerhardt]

Ist einfach eine praktische Sache, um Editieraufgaben zu "automatisieren". Ich saug mir mal ein Beispiel aus den Fingern: Stell dir vor, du hast eine Unit, in der du lauter Forms mit Namen wie TKundenForm, TArtikelForm usw. hast. Irgendwann kriegt ihr einen neuen Style guide, der vorschreibt, Formnamen müssen mit Tfrm anfangen. Dann baust du dir eine RegEx, die sagt: Such nach Strings, die mit "T" anfangen und mit "Form" aufhören, und merke dir den Teil dazwischen. Ersetze jedes Vorkommen durch Tfrm + den gemerkten Teil. Führe mit dieser RegEx Suchen und Ersetzen aus, und schon heißen alle deine TKundenForm's TfrmKunden usw. Wenn das Ganze dann noch über Filegrenzen hinweg geht, ist das ne feine Sache. :-)
<p>Uli