Textbestand dumpen??

[Julia82]

Hallo!

Ich besuche gerade einen Einsteiger-Delphi Kurs und benötige Hilfe bei folgendem:
1.) einen Textbestand in einem memo Fenster erscheinen lassen, bei dem es auf die Länge nicht ankommt. Dazu muss ich den Tekstbestand "dumpen"-weiss aber leider nicht was das ist. (Ich darf nicht Memo1.lines.LoadFromFile verwenden!!)
Bisher weiss ich nur wie mal einzelne strings oder Zeilen einliest - 1.AssignFile 2. Reset 3. Read/Readln 4.memo 5.CloseFile

2.) einen Tektbestand mit 10 Zahlen in einem memo zeigen lassen und dabei mit einem array und einem loop arbeiten. Den Durchschnitt der 10 Zahlen muss anschließend in einem memo zu sehen sein.

Ich hoffe jemand macht sich die Mühe um mir zu helfen!
Ich bedanken mich schon mal ganz lieb im Vorraus!!

Lg, Julia

[marabu]

Herzlich Willkommen in der Delphi-PRAXiS, Julia.

Keine Ahnung was du mit Dumpen meinst. Da du gerade Schleifen kennenlernst - auch eine Textdatei kannst du in einer Schleife einlesen:

Delphi-Quellcode:

var
  tf: TextFile;
  line: String;
begin
  AssignFile(tf, '');
  Reset(tf);
  while not Eof(tf) do
  begin
    ReadLn(tf, line);
    // hier kommt dein Code hin
  end;
  CloseFile(tf);
end;

Eventuell wirst du noch die Funktion StrToInt() brauchen um deine Zahlen, die du aus der Textdatei als Zeichenketten einliest, zur Berechnung des Durchschnitts addieren zu können.

Grüße vom marabu

[Daniel G]

Zitat:

Zitat von marabu

Keine Ahnung was du mit Dumpen meinst.

Wir hatten damals im Info - Unterricht 'nen "HexDump" - Programm geschrieben. Ich hätte dazu "HexEditor ohne Editierfunktion" gesagt. Mit Dumpen meint sie also wohl einfach nur das einlesen und anzeigen von Daten. :zwinker:

[marabu]

Danke Daniel, das konnte ich nicht wissen - ich hatte nie Info-Unterricht.

Wenn du Recht hast, dann braucht die einsteigende Julia auch noch IntToHex():

Delphi-Quellcode:

var
  hex, s: String;
  code, i: Integer;
begin
  s := '1234567890'
  for i := 1 to Length(s) do
  begin
    code := Ord(s[i]);
    hex := IntToHex(code, 2);
    ShowMessage(Format('Stelle %d Zeichen %s Codewert %d Hexwert %s', [i, s[i], code, hex]));
  end;
end;

marabu