Sieh die mal die Property
Controls bzw.
Components an. Damit kannst du durch die Unterkomponenten von deiner Groupbox iterieren. Damit sparst du dir das "von Hand abfragen" aller deiner Edits.
Delphi-Quellcode:
const Prefixes: array[0..???] of string = ('Name', 'Vorname', ...);
var i,j:integer;
begin
j := 0;
for i := 0 to (Groupbox1.ControlCount - 1) do // Controls in Groupbox1 durchlaufen
if Groupbox1.Controls[i] is TEdit then begin // Nachsehen ob es ein Editfeld ist
AddBBCode(Prefixes[j], (Groupbox1.Controls[i] as TEdit).Text);
// Wenn ja, mit der Prozedur von jim_raynor hinzufügen
inc(j); // Und nächstes mal den nächsten Prefix-String nehmen
end;
end;
In das array Prefixes schreibst du alle "Datenbezeichner" rein. Ist natürlich noch nicht ganz druckreif der Code, aber ich denke wenn du das überhaupt so machen möchtest, müsstest du es relativ leicht auf deine Bedürfnisse (insbesondere mehrere Groupboxes) anpassen können.
