Inhalt einer Textdatei in ein Array schreiben

[Schnittcher]

Hallo,

wie kann ich den Inhalt einer Textdatei in ein Array schreiben?

Der Inhalt sieht so aus:

3;2+1

Ich will nach dem ; splitten und es dann so in ein Array schreiben:

Inhalt[0,0] = 3
Inhalt[0,1] = 2+1

Gruß,
Schnittcher

[Luckie]

Explode

[Schnittcher]

Hallo,

mir geht es erst darum wie ich es in ein Array bekomme,
wie schreibe ich eine Zeile in ein Array?

Ich komme immer mit Delphi und VB durcheinander.

Gruß,
Schnittcher

[DeddyH]

Wenn es ein Array of string ist, dann einfach per Zuweisung.

[Schnittcher]

Hallo,

Inhalt[0,0] = ReadLN(Datei)?

Gruß,
Schnittcher

[Deep-Sea]

Zitat:

Zitat von Schnittcher

Hallo,

Inhalt[0,0] = ReadLN(Datei)?

Gruß,
Schnittcher

Wenn du eine Funktion mit dem Namen ReadLN hast, die die Datei parst und das Array vorher mit SetLength initialisiert hast, dann ja :-D

[SirThornberry]

ich würde mit TStream das ganze in ein Bytearray einlesen:

Delphi-Quellcode:

var
  lStream: TStream;
  lArray: Array of Byte;
begin
  lStream := TFileStream.Create(YourFilename, fmOpenRead);
  try
    SetLength(lArray, lStream.Size);
    lStream.Read(lArray[0], lStream.Size);
  finally
    lStream.Free;
  end;
  //do anything with the Array

[Deep-Sea]

Zitat:

Zitat von SirThornberry

ich würde mit TStream das ganze in ein Bytearray einlesen:

Delphi-Quellcode:

var
  lStream: TStream;
  lArray: Array of Byte;
begin
  lStream := TFileStream.Create(YourFilename, fmOpenRead);
  try
    SetLength(lArray, lStream.Size);
    lStream.Read(lArray[0], lStream.Size);
  finally
    lStream.Free;
  end;
  //do anything with the Array

und wie kommt man dann bitte zu dem Ergebnis ...

Zitat:

Inhalt[0,0] = 3
Inhalt[0,1] = 2+1 // 2+1 ist ein String mit dem Wert "2+1"

... wenn jetzt einfach nur jedes Byte - ohne Rücksicht auf die Zeichencodierung - zusammenhanglos in einem Array liegt? :wink: