1:
2:
3:
4:
5:
6:
7:
8:

Function RemoveZeros(s:AnsiString):AnsiString;
var
  i:Integer;
begin
  Result := '';
  for I := 1 to Length(s) do
    if s[i] <> #0 then Result := Result + s[i] ;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function TForm1.GetUser: String;
 var CompName : Array [1..20] of Char;
     SizeD : DWord;
     i:Integer;
 begin
 SizeD := 15;
 GetUserName( @CompName, SizeD );
   begin
   Result := '';
   for I := 1 to Length(CompName) do
     if CompName[i] <> #0 then Result := Result + CompName[i] ;
   end;
 result:=CompName;
 end;                    

1:

<span class="inlineSyntax"><span class="codecomment">{PROTECTTAG737bab35cb28800232285f888abd5c60}</span></span>                    

1:

var Test: integer;                    

1:
2:
3:
4:
5:
6:

var
  Dateiname : string;
...
  Dateiname := GetUser;
  Dateiname := Dateiname + '_' + IntToStr(ds[listbox1.itemindex + 1].lfdnr) + '.txt');
  ShowMessage(Dateiname);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var
  Dateiname : string;
  Buffer    : array [0..32] of char;  // ggf. vergrößern
  Groesse   : DWord;
begin
  Groesse := SizeOf(Buffer);
  GetUserName(Buffer, Groesse);
  Dateiname := Buffer + '_' + IntToStr(ListBox1.ItemIndex + 1) + '.txt';
  ShowMessage(Dateiname);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function GetCurrUserName: string;
var
  Size              : DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);
  if GetUserName(PChar(Result), Size) then
    SetLength(Result, Size)
  else
    Result := '';
end;                    

1:

SetLength(Result, Size - 1)                    

1:
2:
3:
4:
5:

// Result enthält den Usernamen + #0
// also Result := GetUser;
If Result[length(Result)+1] = #0 then
 Result := copy(Result,1,length(Result)-1);
 Showmessage(Result+'_'+IntToStr(ds[listbox1.itemindex+1].lfdnr)+'.txt');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function GetCurrUserName: string;
const
  UNLEN = 256;
var
  BufferSize: DWORD;
begin
  BufferSize := UNLEN + 1;
  SetLength(Result, BufferSize);
  if GetUserName(PChar(Result), BufferSize) then
    SetLength(Result, BufferSize - 1)
  else
    Result := '';
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function GetCurrentUserName: string;
const
  UNLEN = 256;
var
  Size              : DWORD;
begin
  Size := UNLEN + 1;
  SetLength(Result, Size);
  if GetUserName(PChar(Result), Size) then
    SetLength(Result, Size - 1)
  else
    raise Exception.Create(SysErrorMessage(GetLastError));
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function TForm1.GetUser: string;
var
  Buffer  : array [0..256] of char;
  Groesse : DWord;
begin
  Groesse := SizeOf(Buffer);
  GetUserName(Buffer, Groesse);
  Result := Buffer;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetUser + '_' + IntToStr(ListBox1.ItemIndex + 1) + '.txt');
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Function Get_UserName:String;
var
  p:Pchar;
  dw:Dword;
begin
  dw:=255;
  p:=stralloc(dw);
  GetUsername(p,dw);
  Result:=StrPas(p);
  strdispose(p);
end;