Не копируеться файл

[grafgrial]

я что-то не понял как вы умудрились тему так растянуть пока меня не было Проверял мой вариант в посте №5

[Aliens_wolfs]

Он хотел свой вариант добить, если бы сразу воспользовался другой функцией тему бы закрыли.

function win():string;
var a:string;
begin
SetLength(a, 255);
GetWindowsDirectory(PChar(a), 255);
Result:=a;
end;

Вся проблема его варианта в отображенной в Edit2 строке
Edit2.text:= win()+'\proga.exe';
C:\Windows#0 все что за символом #0 неотобразилось в Edit2 поэтому +'\proga.exe' неотобразилось

Вот и пришлось разъяснять человеку в чем беда)))

[Пепел Феникса]

Char может принимать только 255 символов

Char это вообще один символ.
а строка может принимать значение до 2ГБ размером.

[Aliens_wolfs]

Присоединяюсь)

[cargo29]

Пепел Феникса не ы ле рекомендовал мне книгу руководство разработчика, получаеться книга ГАВНО!? так как там описано было то и говорю... там функция была эта написана которую я писал и до этого ей пользовался а тут ступор встал... из книги я многое понял вот только вопрос сразу встало правильно ли было там все написано?

[Человек_Борща]

Все книги хорошо. Просто вы либо не прочитали её, либо она для вас сложна.

[Пепел Феникса]

1)либо книга не по Делфи(в паскале строки имели длину 255 макс)
2)либо автор говорил про ShortString(аналог паскальных)
3)либо автор ****к ибо перепутал строки паскаля со строками Делфи.

[Aliens_wolfs]

Если вы пример из книги взяли, то автор от балды написал непроверяя его, так бывает.

Насчет максимального числа символов:
String его длина да 255 символов но это когда статически задаешь s: string[255]; s: string[256];- уже будет ошибка.
SetLength(s, 300) можно задать и больше когда в S: String; не определен размер.
И Вообще автор имел ввиду наверное 255 символов которые строковый параметр способен отображать это символы от #1 - #255


Ошибка функции win
Edit2.text:= win + '\proga.exe';
C:\Windows#0#0#0#0#0 все что за символом #0 не отображается в строке, поэтому в Edit2 строка '\proga.exe' не отобразилась.
У вас строка win получила размер в 255 символов после полученного текста остальные идут вот эти символы #0#0#0 т.е. необрезанная по тексту строка


исправить можно так:

 function win():string;
begin
//Задаем большой размер
 SetLength(result, 255);
//Затем из этого размера делаем размер который извлекается из GetWindowsDirectory, тогда размер становится нужным по строке
 SetLength(result, GetWindowsDirectory(PChar(result), 255));
end;

[cargo29]

Книга по делфи и советовал ее сам лично Пепел Феникса там идет по 6 делфи, а с функцие разобрался там кое что подправил и все... )))

[Пепел Феникса]

советовал ее сам лично Пепел Феникса там идет по 6 делфи

я чтото советовал по Делфи
я ни одной книги не читал-то, по Делфи по крайней мере.

-------------UPDATE-------------
Библия чтоль?
дык я не читал, просто не раз говорили что хорошая.

я более книги читаю по более узким темам, такая как книга дракона