Как это сделать?

← →
HelpMe (2003-01-09 13:24) [0]

Function GetName(OldName: String): String;
Var
s: Array [0..255] Of Char
begin
s := OldName + "12";
Result := String(s);
end;

Можно ли в переменную S так закинуть значение? Или надо по другому?

← →
Игорь Шевченко © (2003-01-09 13:34) [1]

StrCopy(s, PChar(OldName));
StrCat(s, "12");

← →
Anatoly Podgoretsky © (2003-01-09 13:44) [2]

Function GetName(OldName: String): String; begin Result := OldName + "12"; end;

Правда зачем для этого функция

Function GetName(OldName: String): String;
begin
Result:= OldName + "12";
end

Как это сделать? Найти похожие ветки