Вопрос по PChar

[Armorer]

Написал простую программу. Все работает кроме функции Convert1, почему она не работает?

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
   Windows;

Function Convert1( S : String ) : String;
begin
 CharToOem( PChar(S), PChar(S) );
 Result := S;
end;

Function Convert2( S : String ) : String;
begin
 CharToOem( @S[1], @S[1] );
 Result := S;
end;

var
 TestStr : String;

begin
 TestStr := 'Строка1';
 CharToOem( PChar(TestStr), PChar(TestStr) );
 Writeln( TestStr );

 TestStr := 'Строка2';
 CharToOem( @TestStr[1], @TestStr[1] );
 Writeln( TestStr );

 Writeln( Convert2( 'Тест' ) );
 Readln;
end.

Когда искал ответ на вопрос, прочитал статью на сайте про PChar. Но вопросов стало еще больше=)

procedure TForm1.Button1Click(Sender: TObject);
 var S : String;
begin
 S := 'Привет';
 MessageBox(0, @S[1], @S[1],0);
 MessageBox(0, PChar(S), PChar(S),0);
 {Все работает нормально, выводит два раза "Привет"}
end;

procedure TForm1.Button2Click(Sender: TObject);
 var Str1 : String;
     Str2 : String[10];
begin
 Str1 := 'Привет';
 MessageBox(0, @Str1, @Str1,0);
 {Выводит кракозябру, хотя в статье написано

 "Мы всегда пишем MessageBox(0,pchar(str),pchar(str),0);
  Всё нормально. Тот же результат при использовании указателей.
  MessageBox(0,@str,@str,0); "

  У меня не работает.
 }

 Str2 := 'Привет';
 MessageBox(0, @Str2, @Str2,0);
 {Тут выводи лишний символ перед строкой. Как и написано в статье.
 Почему в первом случае не выводит тоже самое?
}
end;

Str1 и Str2 отличаются только типом. Кажется, читал что тип
String[10] равнослиен типу ShortString; Тип String в динамической памяти (почти как дин. массив), тип ShortString статический всегда равен 256 байт.
Но что храниться по адресу @Str1 и @Str2 ?

Вот еще код

procedure TForm1.Button3Click(Sender: TObject);
 var S1 : String;
     S2 : String[10];
     S3 : ShortString;
begin
 S1 := 'Привет';
 Label1.Caption := IntToStr( Byte( @S1 ) );

 S2 := 'Привет';
 Label2.Caption := IntToStr( Byte( @S2 ) );

 S3 := 'Привет';
 Label3.Caption := IntToStr( Byte( @S3 ) );

 { В итоге на метках написано 64 53 53 }
end;

Тут вообще не понятно =)

По идее
Byte( @S1 ) должно быть равно 6, так как в строке 6 символов.

[Arigato]

Дело в том, что тип string сам является указателем на строку, т.е. если записать так:

var Str1 : String;
begin
 Str1 := 'Привет!';
 MessageBox (0, Pointer (Str1), Pointer (Str1), 0);

Получим "Привет!".
Но, если при объявлении типа string мы явно указываем длину строки, то этот стринг работает как в TurboPascal - массив символов, в котором нулевой элемент содержит длину строки. Т.е. уже не указатель. Поэтому можно записать так:

var Str1 : String[8];
begin
 Str1 := 'Привет!'#0;
 MessageBox (0, @Str1, @Str1, 0);

На выводе получим "[]Привет!", где [] - нулевой символ (длинна). В конец строки я явно дописал #0, иначе результат мог быть непредсказуемым.

[Armorer]

Спасибо, уже понятнее=)

Ещё один вопрос не могу найти в исходниках функцию Length, если на вести на неё и нажать ctrl+лкм то просто перекидывает в модуль System
Поиском тоже найти не получается. Так и с некоторыми другими функциями. Как найти их код?

И последнее =) Почему в первом примере

Function Convert1( S : String ) : String;
begin
 CharToOem( PChar(S), PChar(S) );
 Result := S;
end;

Программа вылетает при вызове CharToOem( PChar(S), PChar(S) )?

[Stilet]

не могу найти в исходниках функцию Length

А потому что это псевдофункция. Это скорее директива чем функция.

Рекомендую так:

Function Convert1( S : String ) : pchar;
begin
 getmem(result,length(s));
 CharToOem( PChar(S), (result) );
end;

begin
c:=Convert1('qwee');
end;

[Armorer]

Сообщение от Stilet

А потому что это псевдофункция. Это скорее директива чем функция.

То есть я никак не могу посмотреть как она и подобные функции реализованы?

Рекомендую так:

Function Convert1( S : String ) : pchar;
begin
 getmem(result,length(s));
 CharToOem( PChar(S), (result) );
end;

begin
c:=Convert1('qwee');
end;

Спасибо. Работает даже без getmem(result,length(s)). Обязательно память выделять?

Но всеже почему Convert2 работает, а Convert1 нет? Должны работать обе, по моему=)

Function Convert1( S : String ) : String;
begin
 CharToOem( PChar(S), PChar(S) );
 Result := S;
end;

Function Convert2( S : String ) : String;
begin
 CharToOem( @S[1], @S[1] );
 Result := S;
end;

[Stilet]

Обязательно память выделять?

Чесслово не знаю, от нужно вспомнить как result устроен.
Я никогда ТАК задачи не решал, как по мне это не лучшее решение.

Должны работать обе, по моему=)

Ну вообще-то источник перезаписывать результатом с ходу не лучший идея.

[Armorer]

Видимо никто не знает=)
Тогда еще вопрос по теме, почему возникает предупреждение компилятора Unsafe type 'PChar' ?
возникает на строках вроде этой

Application.MessageBox( PChar( 'Просмотр документа завешен, произведено ' + IntToStr( Count ) + ' замен.' ), PChar( ProgramName ) );

Предупреждение в обоих вызовах PChar
ProgramName - строковая константа.

Как убрать это предупреждение и что оно означает?

[Kotofff]

Не должно предупреждать ни о чем !
Можно текст "предупреждения" увидеть как можно полнее ...

[Armorer]

Всё как я написал, выдает два Warning'a Unsafe type 'PChar'
Поискав в яндексе нашел, что это предупреждение означает, что под .NET данный код скомпилирован не будет. То есть если программу писать только под win, то на такой варнинг не надо обращать внимание.

В Delphi6 такой же код ничего ничего не выдает, такое сообщение у меня появляется только в 7мом.

Можно ли отключить только такие предупреждения? Я знаю только директиву {$WARNINIGS OFF} но она отключает все.

[Jeni]

Сообщение от Armorer

Можно ли отключить только такие предупреждения? Я знаю только директиву {$WARNINIGS OFF} но она отключает все.

В опциях проекта есть закладка Compiler Messages, там можно отключать разные типы сообщений. Конкретно для тебя будет интересен пункт Unsafe Type.