imam ovaj kod
var
i:integer;
s:string;
nesto: TextFile;
begin
s:=EmptyStr;
for i:=0 to Form1.ComponentCount-1 do
begin
if Form1.Components.ClassName='TEdit' then
with TEdit(FindComponent(Form1.Components.Name)) do
s:=s+#13#10+Text;
end;
AssignPrn(nesto);
Rewrite(nesto);
Writeln(nesto, s);
System.CloseFile(nesto);
end;
ali ne znam sto ide umjesto "NESTO".
zna netko?