Mam procedure, która pobiera nazwe komputera i powinna ją zapisac do pliku txt a wywala błąd z uwzględnieniem na linijkę : "Writeln('Twoja nazwa komputera to:' + Comp);"
procedure TForm1.Button1Click(Sender: TObject);
var
Comp : String;
Buff : DWORD;
TXT : TextFile;
begin
Buff := 64;
SetLength(Comp, Buff);
GetComputerName(PChar(Comp), Buff);
AssignFile(TXT,'C:/Windows/Pulpit/dane.txt');
Rewrite(TXT);
try
Writeln('Twoja nazwa komputera to:' + Comp);
finally
CloseFile(TXT);
end;
end;
POMOCY!!!