Forum: Object-Pascal / Delphi-Language
by Jerry,
27. Aug 2010
so habs nun.. ;-)
procedure Trpt_eVVPrint.MemoKunde3Print(Sender: TObject);
var
i : integer;
begin
for i := 1 to 7 do
begin
if (Findcomponent('pp_KontoInhaberZ' + intToStr(i)) as TppField).AsString <> '' then
Forum: Object-Pascal / Delphi-Language
by Jerry,
27. Aug 2010
mmmm sorry der will net... :-(
procedure Trpt_eVVPrint.MemoKunde3Print(Sender: TObject);
var
i : integer;
begin
for i := 1 to 7 do
begin
if Findcomponent('pp_KontoInhaberZ' + intToStr(i) as TppField).AsString <> '' then
Forum: Object-Pascal / Delphi-Language
by Jerry,
27. Aug 2010
Danke für Deine Antwort.
Leider ist das Append und Add in dieser Memobox nicht vorhanden.
Jetzt habe ich aber folgendes Problem:
Siehe hier Screen: (auf Eigenschaft AsString kann nicht zugegriffen werden.
Danke für weitere Tipps... :-)
Forum: Object-Pascal / Delphi-Language
by Jerry,
27. Aug 2010
Hallo zusammen
Habe folgende Ausgangslage:
Variablen in aufzählender Form:
pp_KontoInhaberZ1
pp_KontoInhaberZ2
bis
pp_KontoInhaberZ7
Variable pp_KontoInhaber ist vom Typ TppField