Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
procedure TForm1.DateiRename;
var
s: string;
number: String;
tfile: textfile;
begin
index := 0;
ii := 0;
Assignfile(tfile, 'c:\Test\LIEFSCH.LST');
Reset(tfile);
while not EOF(tfile) do
begin
ReadLn(tfile, s);
if pos('LIEFERSCHEIN',s) > 0 then
begin
number := copy(s,32,3);
end;
end;
CloseFile(tfile);
RenameFile('c:\Test\LIEFSCH.LST', 'c:\Test\LIEFSCH' + Number + '.LST');
RenameFile('c:\Test\BESTFIL.OUT', 'c:\Test\BESTFIL' + Number + '.OUT');
end;