Hi!
Folgende Klasse habe ich geschrieben, um ein Textfile in das Feld der Klasse "TcppTokenizer" einzulesen:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
| unit cppTools;
interface
uses Classes;
type
TcppTokenizer = class
public
Zeilen: TStrings;
constructor create();
procedure ReadFile(filename:String);
end;
implementation
constructor TcppTokenizer.create();
begin
inherited Create();
Zeilen := TStrings.Create;
end;
procedure TcppTokenizer.ReadFile(filename:String);
var
f: Textfile;
linebuffer: string;
begin
AssignFile(f, filename);
reset(f);
Zeilen := TStrings.create();
Zeilen.Add('test'); repeat
readln(f, linebuffer);
Zeilen.Add(linebuffer);
until (eof(f));
closefile(f);
end; |
Folgendes Problem (ich bin leider ziemlich raus aus delphi, wahscheinlich simple Sache):
In der markierten Zeile stritt ein "Abstract error" auf, auch wenn offenbar das Erstellen des TStrings funktioniert (wenn ich da einen Stoppunkt setze sehe ich dass "Zeilen=()" ist). Woran liegt dieser Fehler? Irgendwas falsch definiert?
