SCHNELL: Erste 100 Zeichen aus Textdatei lesen

[PeterPanino]

Zitat von Aphton:

Weiters würde ich dir wärmstens davon abraten, jedesmal in der Funktion Speicher für das dynamische Array zu allozieren (SetLength(); was eig. eh dann, sobald es außer Scope fällt (Funktionsende), dealloziert wird).
Lös das bitte anders!

Wie würdest du das lösen? Den Speicher außerhalb der Funktion allozieren?

Zitat von Aphton:

Edit: Ich seh grad, dass du auch ein Kopiervorgang drinnen hast (Result := String(Buffer))
Ist imho auch unnötig und sehr ineffizient.

Ich brauche ja das Funktionsergebnis als string. Wie soll man sonst einen string als Funktionsergebnis erhalten?

[shmia]

Ohne Kopieren in Zwischenpuffer:

Delphi-Quellcode:

function GetStartBlockFromTextFile(const F: string; const X: Integer): AnsiString;
// holt die ersten X Zeichen aus der Text-Datei F
var
  SR : TStreamReader;
  len : Integer;
begin
  SR := TStreamReader.Create(F);
  try
    SetLength(Result, X);
    len := SR.ReadBlock(Result, 0, X);
    // evtl. in len < X, dann wird der String entsprechend verkürzt
    SetLength(Result, len);
  finally
    SR.Free;
  end;
end;

[Aphton]

Zitat von PeterPanino:

Wie würdest du das lösen? Den Speicher außerhalb der Funktion allozieren?

Kommt ganz drauf an, was du mit den 100 Bytes bezwecken willst.. Ein Beispiel wäre das hier

Delphi-Quellcode:

// die funktion liefert die erste datei, bei der die ersten 100 stellen aus Nullen bestehen, zurück
function searchForEmpty100(const Filenames: Array of AnsiString): Integer;
var
  iFile   : Integer;
  Buffer  : AnsiString;
  hFile   : THandle;
  Bytes   : Cardinal;
const
  BUFSIZE = 100;
begin
  SetLength(Buffer, BUFSIZE); // einmaliges Allozieren
  for iFile := 0 to High(Filenames) do
  begin
    hFile := CreateFileA(pAnsiChar(Filenames[iFile]), GENERIC_READ, FILE_SHARE_READ, NIL,
      OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);  // jede datei öffnen
    if hFile <> INVALID_HANDLE_VALUE then
      try
        ReadFile(hFile, Buffer[1], BUFSIZE, Bytes, NIL);
        if BUFSIZE = Bytes then
        begin // genau 100 zeichen konnten eingelesen werden
          if check_100bytes(buffer) then
          begin
            Result := iFile;
            break;
          end;
        end;
      finally
        CloseHandle(hFile);  // und wieder schließen, sofern geöffnet
      end;
  end;
end;

[PeterPanino]

Zitat von shmia:

Ohne Kopieren in Zwischenpuffer:

Delphi-Quellcode:

function GetStartBlockFromTextFile(const F: string; const X: Integer): AnsiString;
// holt die ersten X Zeichen aus der Text-Datei F
var
  SR : TStreamReader;
  len : Integer;
begin
  SR := TStreamReader.Create(F);
  try
    SetLength(Result, X);
    len := SR.ReadBlock(Result, 0, X);
    // evtl. in len < X, dann wird der String entsprechend verkürzt
    SetLength(Result, len);
  finally
    SR.Free;
  end;
end;

Das lässt der Compiler nicht zu, da ReadBlock im ersten Parameter ein Char-Array erwartet, Result aber als AnsiString deklariert ist. Wie kann man das type-casten?

[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