|
Registriert seit: 28. Okt 2003
Ort: Bamberg
519 Beiträge
|
Re: freizeile einfügen
10. Jan 2006, 13:49
var
datei: textfile;
begin
assignfile(datei,'produkte\'+edit2.text+'.txt');
rewrite(datei);
writeln(datei,edit1.text);
writeln(datei,'');
writeln(datei,edit3.text);
writeln(datei,'');
writeln(datei,edit4.text);
closefile(datei);
end;
|