[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Pir4tt, все таки ты прав Просто я забыл что в Паскале так можно. Значит твой вариант полегче будет Молодец.

 

Дайте плз ссылку на Delphi 7

 

Darkor, юзай гугл! http://infostore.org/info/1721611

 

Уважаемые кодеры, помогите с такой проблемкой:
Вот например,

Code:

...
var 
 s1,s2:string;
 begin
    s2:=s1+'Filename'
....

прекрасно работает, а

Code:

...
var 
 s1,s2:pchar;
 begin
    s2:=s1+'Filename'
....

нет Мне нужно работать именно с pchar таким образом. Но Как?

 

PChar это указатель не переменную типа чар, если я не ошибаюсь. Для работы с pchar, есть ф-ция PChar()

 

z01b, это я понимаю. Но суть моей проблемы в другом. Нужно как то склеить две переменные типа pchar! Например там:

Code:

s1:pchar='file1';
s2:pchar='file2';
s3:pchar;
s3:=s2+s1;
writeln(s3);

Но идея с плюсом не прокатит, как то их по другому склеить надо????

 

lstrcatA(s2,s1); результат будит в s2

 

Hellsp@wn, и так пробовал, почему то обнуляет строку s2

 

s3:=pChar(string(s2)+string(s1));

 

Ребят, спасиб конечно, но это всё не то! мне нужно сделать прогу без библиотеки windows! а поэтому в ней не должно быть каких либо намеков на использование плюсов(pchar нельзя "склеить") и уж тем более на использование функции string(). вот должна бы помочь lstrcat, но никак не получается может у кого получилось?

 

var
str1,str2 : array[0..128]of char;
begin
str1:='Скомпелируем в';
str2:='месте!';
lstrcat(str1,str2);
MessageBox(0,str1,0,0);
end;

 

Оо

достаточно 1 ссылку посмотреть

 

zl0y, noobyara, спасибо огромное!!!Оч помогли!

 

как-то противоречиво. Почему windows нельзя использовать? Это ж тупо Win API

 

потому что надо по-нормальному с pchar работать

Code:

tmpstr1  := pointer(LocalAlloc(lmem_ZeroInit,255));
tmpstr2  := pointer(LocalAlloc(lmem_ZeroInit,255));

lstrcpyA(tmpstr1,'blabla1');
lstrcpyA(tmpstr2,'blabla2');
lstrcatA(tmpstr1,tmpstr2);

 

на: http://slil.ru/25456476
чуть чуть поискать и сразу находишь =\

 

как из компонента ListView скопировать строчку в буфер?

 

сделал, еще проблемка

что нужно вставить в буфер, чтобы был конец строки

например надо вставить :
1
2

ClipBoard.AsText:='1'+конец строки +'2'
вот как конец строки выглядит?

 

'\n' или в хэксе 0d0a.
Всё элементарно и просто.

 

Code:

ClipBoard.AsText:='1'+#13#10+'2'

или

Code:

ClipBoard.AsText:='1'+chr(13)+chr(10)+'2'