수정이 필요 없는 경우들

일반적인 스트링 타입 사용

런타임 라이브러리(RTL)

VCL

스트링 인덱스

var
  S: string;
  C: Char;
begin
  S := 'This is a string';
  C := S[1];  // C는 'T' 값을 가집니다. 물론 C는 WideChar입니다.
end;

스트링의 Length/Copy/Delete/SizeOf

var
  S: string;
begin
  S:= 'abcdefghijklmnopqrstuvwxyz가나';
  WriteLn('Length = ', Length(S));
  WriteLn('SizeOf = ', SizeOf(S));
  WriteLn('TotalBytes = ', Length(S) * SizeOf(S[1]));
  ReadLn;
end.

Length = 28
SizeOf = 4
TotalBytes = 56

PChar의 포인터 연산

var
  p: PChar;
  MyString: string;
begin
  ...
  p := @MyString[1];
  Inc(p);
  ...
end;

ShortString

var
  S: string[32];
begin
  S:= 'abcdefghijklmnopqrstuvwxyz가나';
  WriteLn('Length = ', Length(S));
  WriteLn('SizeOf = ', SizeOf(S));
  WriteLn('TotalBytes = ', Length(S) * SizeOf(S[1]));
  ReadLn;
end.

Length = 30
SizeOf = 33
TotalBytes = 30

type
TMyRecord = record
  String1: string[20];
  String2: string[15];
end;

var
  MyRec: TMyRecord;
  SomeChar: Char;
begin
  // 여기에 MyRec의 데이터를 파일로부터 불러오는 코드...
  SomeChar := MyRec.String1[3];
  ...
end;

var
  MyRec: TMyRecord;
  SomeChar: AnsiChar; // shortstring의 인덱스 해당 값을 AnsiChar로 선언합니다
begin
  // 여기에 MyRec의 데이터를 파일로부터 불러오는 코드...
  SomeChar := MyRec.String1[3];  
  ...
end;

재검토 대상인 경우들

SaveToFile/LoadFromFile

procedure SaveToFile(const FileName: string); overload; virtual;
procedure SaveToFile(const FileName: string; Encoding: TEncoding); overload; virtual;

Chr 함수의 사용

[DCC Error] PasParser.pas(169): E2010 Incompatible types: 'AnsiChar' and 'Char'

MyChar := chr(i);

MyChar := AnsiChar(i);

문자들의 set

procedure TDemoForm.Button1Click(Sender: TObject);
var
  C: Char;
begin
  C := Edit1.Text[1];

  if C in ['a'..'z', 'A'..'Z'] then
  begin
    Label1.Caption := 'It is there';
end;
end;

[DCC Warning] Unit1.pas(40): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.

if CharInSet(C, ['a'..'z', 'A'..'Z']) then
begin
  Label1.Caption := 'It is there';
end;

스트링을 데이터 버퍼로 이용한 경우

버퍼에 대한 SizeOf 호출

procedure TDemoForm.Button1Click(Sender: TObject);
var
  P: array[0..16] of Char;
begin
  StrPCopy(P, 'This is a string');
  Memo1.Lines.Add('P의 길이는 ' + IntToStr(Length(P)) + '입니다');
  Memo1.Lines.Add('P의 크기는 ' + IntToStr(SizeOf(P)) + '입니다');
end;

P의 길이는 17입니다
P의 크기는 34입니다

FillChar의 사용

var
  Count: Integer;
  Buffer: array[0..255] of Char;
begin
  // 기존 코드 - string = UnicodeString인 경우 잘못된 코드임
  Count := Length(Buffer);
  FillChar(Buffer, Count, 0);
  
  // 유니코드를 위해 수정 ? 아래 두 가지 모두 맞는 코드임
  Count := SizeOf(Buffer);                // <<-- 버퍼 크기를 바이트로 지정
  Count := Length(Buffer) * SizeOf(Char); // <<-- 버퍼 크기를 바이트로 지정
  FillChar(Buffer, Count, 0);
end;

var
  Buf: array[0..32] of Char;
begin
  FillChar(Buf, Length(Buf), #9);
end;

같이 수정해야 합니다.
var
  Buf: array[0..32] of Char;
begin
  ..
  StrPCopy(Buf, StringOfChar(#9, Length(Buf)));
  ..
end;

문자 상수

if Edit1.Text[1] = #128 then

if Edit1.Text[1] = '€' then

Move 호출

var
  Count: Integer;
  Buf1, Buf2: array[0..255] of Char;
begin
  // 기존의 코드 - string = UnicodeString인 경우 잘못된 코드임
  Count := Length(Buf1);
  Move(Buf1, Buf2, Count);
  
  // 유니코드에서도 맞는 코드
  Count := SizeOf(Buf1);                // <<-- 버퍼 사이즈를 바이트로 지정
  Count := Length(Buf1) * SizeOf(Char); // <<-- 버퍼 사이즈를 바이트로 지정
  Move(Buf1, Buf2, Count);
end;

TStream의 Read/ReadBuffer 메소드

var
  S: string;
  L: Integer;
  Stream: TStream;
  Temp: AnsiString;
begin
  // 기존 코드 - string = UnicodeString인 경우 잘못된 코드임
  Stream.Read(L, SizeOf(Integer));
  SetLength(S, L);
  Stream.Read(Pointer(S)^, L);
   
  // 유니코드에서도 맞는 코드
  Stream.Read(L, SizeOf(Integer));
  SetLength(S, L);
  Stream.Read(Pointer(S)^, L * SizeOf(Char));  // <<-- 버퍼 사이즈를 바이트로 지정
  
  // ANSI 데이터에서 맞는 코드
  Stream.Read(L, SizeOf(Integer));
  SetLength(Temp, L);              // <<-- 임시 AnsiString 사용
  Stream.Read(Pointer(Temp)^, L * SizeOf(AnsiChar));  // <<-- 버퍼 사이즈를 바이트로 지정
  S := Temp;                       // <<-- 스트링을 유니코드로 넓힘
end;

Write/WriteBuffer

var
  S: string;
  Stream: TStream;
  Temp: AnsiString;
begin
  // 기존 코드 - string = UnicodeString인 경우 잘못된 코드임
  Stream.Write(Pointer(S)^, Length(S));
  
  // 유니코드에서도 맞는 코드
  Stream.Write(Pointer(S)^, Length(S) * SizeOf(Char)); // <<-- 버퍼 사이즈를 바이트로 지정
  
  // ANSI 데이터에서 맞는 코드
  Temp := S;          // <<-- Use temporary AnsiString
  Stream.Write(Pointer(Temp)^, Length(Temp) * SizeOf(AnsiChar));// <<-- 버퍼 사이즈를 바이트로 지정
end;

LeadBytes

if Str[I] in LeadBytes then

if IsLeadChar(Str[I]) then

TMemoryStream

var
  BOM: TBytes;
begin
  ...
  BOM := TEncoding.UTF8.GetPreamble;
  Write(BOM[0], Length(BOM));

var
  Temp: Utf8String;
begin
  ...
  Temp := Utf8Encode(Str); // <-- Str은 파일에 쓰여질 스트링입니다
  Write(Pointer(Temp)^, Length(Temp));
  //Write(Pointer(Str)^, Length(Str)); <-- 이 라인은 스트링을 파일에 쓰기 위한 기존의 코드입니다
end;

TStringStream

procedure TWideCharStrList.AddString(const S: string);
var
  Size, D: Integer;
begin
  Size := SizeOf(S);
  D := (Size + 1) * SizeOf(WideChar);
  FList[FUsed] := AllocMem(D);
  MultiByteToWideChar(0, 0, PChar(S), Size, FList[FUsed], D);
  Inc(FUsed);
end;

procedure TWideCharStrList.AddString(const S: string);
var
  L, D: Integer;
begin
  FList[FUsed] := StrNew(PWideChar(S));
  Inc(FUsed);
end;

SysUtils.AppendStr

AppendStr(String1, String2);

String1 := String1 + String2;

GetProcAddress

procedure CallLibraryProc(const LibraryName, ProcName: string);
var
  Handle: THandle;
  RegisterProc: function: HResult stdcall;
begin
  Handle := LoadOleControlLibrary(LibraryName, True);
  @RegisterProc := GetProcAddress(Handle, PAnsiChar(AnsiString(ProcName)));
end;

function TCustomVirtualStringTree.InternalData(Node: PVirtualNode): Pointer;
begin
  if (Node = FRoot) or (Node = nil) then
    Result := nil
  else
    Result := PChar(Node) + FInternalDataOffset;
end;

function TCustomVirtualStringTree.InternalData(Node: PVirtualNode): Pointer;
begin
  if (Node = FRoot) or (Node = nil) then
    Result := nil
  else
    Result := PByte(Node) + FInternalDataOffset;
end;

variant open array 파라미터

procedure RegisterPropertiesInCategory(const CategoryName: string;
  const Filters: array of const); overload;
var
  I: Integer;
begin
  if Assigned(RegisterPropertyInCategoryProc) then
    for I := Low(Filters) to High(Filters) do
      with Filters[I] do
        case vType of
          vtPointer:
            RegisterPropertyInCategoryProc(CategoryName, nil,
              PTypeInfo(vPointer), );
          vtClass:
            RegisterPropertyInCategoryProc(CategoryName, vClass, nil, );
          vtAnsiString:
            RegisterPropertyInCategoryProc(CategoryName, nil, nil,
              string(vAnsiString));
          vtUnicodeString:
            RegisterPropertyInCategoryProc(CategoryName, nil, nil,
              string(vUnicodeString));
        else
          raise Exception.CreateResFmt(@sInvalidFilter, [I, vType]);
        end;
end;

CreateProcessW

CreateProcess(nil, 'foo.exe', nil, nil, False, 0, nil, nil, StartupInfo, ProcessInfo);

const
  cMyExe = 'foo.exe';
begin
  CreateProcess(nil, cMyExe, nil, nil, False, 0, nil, nil, StartupInfo, ProcessInfo);
end;

const
  cMyExe = 'foo.exe';
var
  sMyExe: string;
begin
  sMyExe := cMyExe;
  CreateProcess(nil, PChar(sMyExe), nil, nil, False, 0, nil, nil, StartupInfo, ProcessInfo);
end;

검색해봐야 할 코드 패턴들

결론