Text Datei auslesen

[fordka]

Hallo,

ich bin der totale anfänger und möchte gerne eine Datei(txt) auslesen und habe absolut keine Ahnung wie am besten. Der Inhalt soll in eine TSTringList.
Es soll auch nicht die ganze Datei sondern nur die ersten Zeichen und die Letzten.

Kann bitte jemand helfen


Gruß fordka

[Luckie]

Dann gibt doch einfach mal TStringList in die Hilfe ein und guck fir mal die Mthoden an.

[fordka]

Ja, habe ich gemacht.
Unter .Net habe ich die Datei auch geöffnet. Jetzt bekomm ich das unter Win32 irgendwie nicht hin.

[MrKnogge]

Dannzeig doch mal deine Versuche (Code).

Gruß

[fordka]

Delphi-Quellcode:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var sl: TStringList;
    zeilennr: integer;
begin
  sl:=TStringList.Create; //Objekt erzeugen

  try
    sl.LoadFromFile('c:\Modules.txt');  //Datei in Stringliste laden
    ShowMessage(sl.GetText); //Meldung ausgeben

  finally
    sl.free; //Objekt wieder freigeben
  end;
end;
end.

Also wenn ich das richtig verstanden habe, habe ich hiermit die Textdatei nicht Zeilenweise eingelesen oder?

[edit=Admin]Code in Delphi-Tags gesetzt. Künftig bitte selber machen. ;-) Mfg, Daniel[/edit]

[MrKnogge]

nimm zum ausgeben mal

Delphi-Quellcode:

sl.Text

und als variable den Typ TStrings, auf die du dann eine TStringlist erzeugst.

Gruß

[fordka]

Hab die Datei eingelesen...jetzt muß ich sie nur noch zerschnippeln....Damit ich die Relevanten Daten erhalte

[MrKnogge]

Suche mal nach pos :wink: