Hallo Paul,
zu 1.) leider keine Idee,
Ist der Text fest einprogrammiert oder wird er irgendwo ausgelesen ???
zu 2.)
Code:
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
for i:=0 to ComponentCount -1 do
begin
if (Components[i] is TMemo) and (Trim(TMemo(Components[i]).Lines.Text)='') then
ShowMessage('Memo '+TMemo(Components[i]).Name+' enthält keinen Text !!!');
end;
end;
Diese Funktion durchläuft alle Komponenten in deinem Projekt.
Ist die aktuelle Komponente vom Typ TMemo, so wird untersucht ob sie Text oder nur Leerzeichen enthält. Ist kein Text oder sind nur Leerzeichen enthalten, so wird eine Meldung ausgegeben.
Ich hoffe das hilft dir ein wenig weiter
Gruß Daniel