2008. 12. 29. 23:28
델파이
function ReverseString(s: String): String;
var
i: integer;
s2: string;
begin
s2 := '';
for i := 1 to Length(s) do
s2 := s[i] + s2;
Result := s2;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ReverseString('역순으로 나타낼 문자열'));
end;
var
i: integer;
s2: string;
begin
s2 := '';
for i := 1 to Length(s) do
s2 := s[i] + s2;
Result := s2;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ReverseString('역순으로 나타낼 문자열'));
end;
'델파이' 카테고리의 다른 글
| 문자 메시지 전송(sms) (0) | 2008.12.29 |
|---|---|
| HTTP CONNECTION (0) | 2008.12.29 |
| 구분자(delimiter)를 사용한 문자열 파싱(parsing) (0) | 2008.12.29 |
| OleVariant 형을 스트링으로 변환하는 방법 (0) | 2008.12.29 |
| 쿠키 읽고/쓰기(GetCookie, SetCookie) (0) | 2008.12.29 |