Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Prism Textdatei auslesen (https://www.delphipraxis.net/62449-textdatei-auslesen.html)

Hador 4. Feb 2006 19:21


Textdatei auslesen
 
Ich habe folgendes Problem. Ich möchte
- Eine Textdatei öffnen
- Die Anzahl der Zeilen auslesen
- Eine zufällige Zeile auslesen (Zufallszahl im Bereich 0..ZeilenAnzahl)
- Den Inhalt dieser Zeile Ausgeben

Mit Delphi Win32 währe das ganze für mich kein Problem.
Dort Hatte ich das ganze folgendermaßen realisiert:
Delphi-Quellcode:
var
  F: TextFile;
  i, count: Integer;
  S: String;
begin
  count := 0;
  AssignFile(F, <DATEINAME>);
  Reset(F);
  while not EOF(F) do
  begin
    inc(count);
    Readln(F);
  end;
  Reset(F);
  Randomize;
  for i := 1 to RandomRange(1, Pred(count)) do
    Readln(F);
  Readln(F, S);
  CloseFile(F);
  <MEMO>.Text := S;
end;
Alternativ hätte man es auch mit einer StringList machen können.

Das Problem ist nur: Unter .NET finde ich nirgends eine der StringList ähnliche Komponente, bzw. auch irgendwie keine andere Möglichkeit auf Dateien zuzugreifen.
Ich hoffe, das ihr mir ein wenig auf die Sprünge helfen könnt. :wink:

EDIT: Erstmal würde es ja reichen, wenn mir einer sagen könnte, wie ich Dateien öffne.

Hador 5. Feb 2006 18:13

Re: Textdatei auslesen
 
*hochhol*

Khabarakh 5. Feb 2006 19:19

Re: Textdatei auslesen
 
Zum Auslesen gibt es die Delphi-Referenz durchsuchenStreamReader-Klasse (siehe auch reading text files :wink: ). Als TStringList-Ersatz gibt es die Klasse StringCollection, ist aber einfach nur eine spezifische List, also keine speziellen Member für Stringoperationen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:52 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz