Thema: Prism Textdatei auslesen

Einzelnen Beitrag anzeigen

Benutzerbild von Hador
Hador

Registriert seit: 11. Dez 2004
Ort: Recke
682 Beiträge
 
Turbo Delphi für Win32
 
#1

Textdatei auslesen

  Alt 4. Feb 2006, 20:21
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.

EDIT: Erstmal würde es ja reichen, wenn mir einer sagen könnte, wie ich Dateien öffne.
Lars Kiesow
http://www.larskiesow.de

Computer gehorchen deinen Befehlen, nicht deinen Absichten.
  Mit Zitat antworten Zitat