Ich habe eine Unit geschrieben, mit der man möglichst einfach Text Drucken können soll. dabei habe ich dem Objekt TEasyPrinter eine Eigenschaft Lines gegeben, die die Zeilen enthält, die gedruckt werden sollen. Um dieser Eigenschaft etwas zuzuweisen habe ich mehreres versucht:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| Pr.Lines.Assign/Memo1.Lines); pr.Lines.Add('hallo');
procedure TEasyPrinter.AddLines(s:TStrings);
var
i:integer;
begin
Lines.Text:='';
for i:=0 to s.Count-1 do begin
Lines.Add(s[i]);
end;
end;
------
pr.AddLines(Memo1.Lines); |
Die versuche, im Constructor Lines:=TStrings.Create; einzusetzen und auch, als ich versuchte die Abstrakten Methoden wegzubekommen (mit TStringList) ergaben doch glatt beim schliessen Exceptionen und sogar einen Runtime Error.
Ich weis einfach nicht was ich falsch mache! das ist mir zu hoch... vielleciht ist einfach 3 uhr nachts auch die falsche Zeit zum Proggen... bis morgen..
Danke für Antworten!!!
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.
