Also, so ging es am Ende. Weiss nicht, ob das genau dasselbe macht, aber es läuft
Delphi-Quellcode:
procedure pm1(M: pDouble; rowM, colM: integer; str: array of char);
var stream: textfile;
i,j: integer;
a: darray;
begin
assignfile(stream,'c:\\larylog.txt');
If IOResult = 0 then
begin
append(stream);
writeln(stream,'*temp. LOGFILE*\n');
writeln(stream,'------------ %s --------------\n', str);
inc(M,colM+2);
for i:=1 to rowM do
begin
write(stream,'[%d][x] = ',i);
for j:=1 to colM do
begin
Write(Stream,M^); INC(M);
Writeln(Stream);
end;
end;
end
else
begin
ShowMessage(' Unable to open logfile Lary Message ');
rewrite(Stream);
Exit
end;
closefile(Stream);
end;