Eigenschaften von TObjekt in Prozeduren

Zuckerrübe · Hält's aus hier Beiträge: 8

Hallo zusammen,

ich würde gerne wissen, wie ich in einer Prozedur eine Eigenschaft von einem TObjekt abfragen kann.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure stringaenderung(a: string);
var i: integer;
    b: string;
begin
  For i:= 1 to length(a) do
  begin
    if a = 'a' then
      b:= b + 'b';
  end;

  Memo1.Text:= b;

Die Funktion dieser Prozedur ist unwichig. Mir ist nur die Zeile 11 wichtig, wie ich den string in dem Memo ausgeben kann.

danke im vorraus

Ehemaliges Mitglied Erhaltene Danke: 1

Wenn es eine allgemeingültige Prozedur sein soll, würde ich das so machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure stringaenderung(a: string; const ResultList: TStrings);
begin
  ...
  ResultList.Text:= b;

Die Memo.Lines kannst Du dann im Parameter ResultList übergeben.

platzwart · Verfasst: Sa 27.06.09 13:54

oder eben Form1.Memo1.Text:= b;, wenn die Funktion nicht zu Form1 gehört bzw. Form1.Memo1.Lines.Add(b);

_________________
Wissenschaft schafft Wissenschaft, denn Wissenschaft ist Wissenschaft, die mit Wissen und Schaffen Wissen schafft. (myself)

Ehemaliges Mitglied Erhaltene Danke: 1

In dem Fall ist aber IMO eine Methode von Form1 die elegantere Alternative.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme