Текст из Edit контрола

[jungle]

function GetEditString(Win: HWnd): string;
var
  i: Integer;
  buf : array [0..23] of Char;
begin
  S := '';
  SendMessage(Win, WM_GETTEXT, SizeOf(buf), Integer(@buf));
  for i := 0 to 23 do
    S := S + buf[i]; // а можно и одной строкой: S := string(buf);
  Result := S
end;

Ввожу в Edit строку "qwerty", отправляю WM_GETTEXT, кладу строку в файл, открываю Notepad++

scr1.jpg

Что за символы такие?

[counter]

забыл в конец строки 0 поставить?

[transserg]

jungle я получал так

Function GetEditTEXT(index:integer):String;
  var
    P:array[0..MAX_PATH] of char;
  begin
    SendDlgItemMessage(hForm,Index,em_GetLine,1,lParam(@p));
    Result:=p;
end;

можно еще через

 var
    p:PChar;
    n:integer;
begin
           n:=GetWindowTextLength(Edit1)+1;
           getmem(p,n);
           GetWindowText(Edit1,p,n);
           freemem(p);
end;