SCHNELL: Erste 100 Zeichen aus Textdatei lesen

[himitsu]

Zitat von PeterPanino:

Wie kann man das type-casten?

Casten garnicht.



z.B. TEncoding

Oder, wenn die internen Daten bitkompatibel sind, dann "kopieren" (Move)

[PeterPanino]

Zitat von himitsu:

z.B. TEncoding

Ich erkenne leider nicht, wie man in dem obigen Beispiel mit TEncoding einen AnsiString in ein Char-Array umwandeln kann. Es geht ja darum, dass ReadBlock ein Char-Array erwartet, als Parameter aber nur ein AnsiString zur Verfügung steht.

[Aphton]

Hast du dir meine Variante angeschaut?

[Bummi]

was Shima meinte war wohl

len := SR.ReadBlock(@Result[1], 0, X); Ich hatte eine identische Antwort fertig, habe sie aber nicht abgeschickt, da es bei mir nicht zuverlässig zum laufen kam, war abhängig vom Encoding der Datei und seltsamerweise auch vom Inhalt, irgendetwas an TStreamreader ist da etwas Voodoo.
Willst Du einen Binärvergleich fahren oder geht es nur um Textdateien (in einheitlicher Codierung) ?

[PeterPanino]

Zitat von Bummi:

was Shima meinte war wohl

len := SR.ReadBlock(@Result[1], 0, X); Ich hatte eine identische Antwort fertig, habe sie aber nicht abgeschickt, da es bei mir nicht zuverlässig zum laufen kam, war abhängig vom Encoding der Datei und seltsamerweise auch vom Inhalt, irgendetwas an TStreamreader ist da etwas Voodoo.
Willst Du einen Binärvergleich fahren oder geht es nur um Textdateien (in einheitlicher Codierung) ?

Es geht nur um Textdateien, aber das Encoding kann je nach Anwendersystem wohl unterschiedlich sein. Ich werde mich deshalb nicht mit TStreamReader Voodoo herumschlagen, sondern mal die Variante von Aphton ausprobieren. Vielen Dank!

[Mavarik]

OK Leute...

OLD SCHOOL

Delphi-Quellcode:

Procedure Schnell;
Var
  Buffer  : array[0..99] of byte;
  F       : file;
  gelesen : Integer;
begin
  AssignFile(F,'Cool.txt');
  reset(F,1);
  Blockread(F,Buffer[0]),100,gelesen);
  Closefile(F);
  if gelesen = 100 then
   begin
     bla;
   end;
end;

Würde sagen NIX ist schneller!

Mavarik

[p80286]

Naja auch wenn ich diese Lösung (mit Stream) bevorzugen würde, so ganz richtig wäre sie nicht.
Die Aufgabenstellung lautet die ersten 100 Zeichen, und das sind unter XE ja wohl 16Bit Chars also ein buffer : array[0..199] of Byte; beim Auslesen müßte dann bestimmt werden ob es sich um eine 8 oder 16 Bit -Codierung handelt.
Aus den ersten 100 Zeichen im Ergebnis einen String zu machen, kann ja funktionieren aber ist auf jeden Fall riskant.

Gruß
K-H

[Sir Rufo]

Zitat von p80286:

Die Aufgabenstellung lautet die ersten 100 Zeichen, und das sind unter XE ja wohl 16Bit Chars ...

Nee, das hat mit der Delphi-Version nichts zu tun, sondern wird von der vorliegenden Datei bestimmt
Somit können die ersten 100 Zeichen mal 100 Bytes sein, mal 200 oder in Zukunft evtl. sogar noch mehr.

Problematisch ist die zuverlässige Erkennung, welche Codierung für die Textdatei verwendet wurde und kein BOM (in der Textdatei) existiert, dann muss man raten.