Вывод значения

[Febreze]

Господа!
Делаю первые шаги... Вот зашел в тупик, необходимо вывести результат в поле Label1, чего-то не получается:

function rich(S:string):string; //функция со своим именем
begin
S:='Пробный текст';
ShowMessage(s);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
rich(Label1.Caption);
end;

[Hollander]

У тебя в Label1.Caption записан текст, напр. Label1
Ты этот текст передаешь в rich, а внем происходит следующее:

S:='Пробный текст';
ShowMessage(s);

т.е. s был Label1, стал Пробный текст, и затем ты выводишь свой пробный текст. Правильно будет так:

function rich(S:string):string; //функция со своим именем
begin
ShowMessage(s);
end;

[mihali4]

Книжку под рукой по-любому иметь надо. Или в хэлп заглядывать.

function rich(S:string):string; //функция со своим именем
begin
ShowMessage(s);
Result:=s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=rich('Пробный текст');
end;

[Febreze]

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

Книжку под рукой по-любому иметь надо. Или в хэлп заглядывать.

function rich(S:string):string; //функция со своим именем
begin
ShowMessage(s);
Result:=string;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=rich('Пробный текст');
end;

Про книжку согласен, есть такая: Фленов М.Е. Библия Delphi. - Спб, БХВ-Петербург, 2007 -880с.

Вот только тольку как-то мало, и хелп смотрел, и в книгу... В книге дан такой пример:

function Length(s):integer;
var
Str:string;
Index:Integer;
begin
Str:='Привет';
index:=Length(Str);
end;

при компиляции ругается на первую строку [Error] Missing parameter type
Вот и я заменял, изменял код, чтобы добиться хоть какого-нибудь результата... Так же есть другой код, который не компилируется нормально - это илюстрация функции Copy:

function Copy(S; Index,Count:Integer):string;
var
Str1:string;
Str2:Integer;
begin
Str1:='Меня зовут Михаил';
Str2:=Copy(Str1,5,5);
end;

При компиляции этого примера, ругается на несоответствие типов в Copy(Str1,5,5); и Missing parameter type в ...function Copy(S; Index...

Вот поэтому на этом этапе изучения есть проблемы... Прокоментируйте что неправильно записано в книге, и почему я не могу откомпилировать элементарнейший пример?

Заранее благодарен

[Febreze]

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

Книжку под рукой по-любому иметь надо. Или в хэлп заглядывать.

function rich(S:string):string; //функция со своим именем
begin
ShowMessage(s);
Result:=string;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=rich('Пробный текст');
end;

Вот, кстати, вставил Ваш вариант исходняка, компилятор выдал кучу ошибок несмотря на то, что все элементы добавлены:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function rich(S:string):string; //функция со своим именем
begin
ShowMessage(s);
Result:=string;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=rich('Пробный текст');
end;
end.

[Карась]

Выкладывайте ПОЛНЫЙ код своео чуда.
Ничево неработает по томучто вы в лоб копируете код.

1. Нужно на форме разместить кнопку и лабел.
2. У кнопки вызвать ОнКлик и уже туда копипастить код.
3. В строке Result := string; подразумевается использования в правой части значение типа String.
4. Вот так примерно:

function rich(S:string):string; 
begin
ShowMessage(s);
Result := 'F1? No.......';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := rich('Проверка');
end;

End.

[mihali4]

Ну, опечатался, Result:=s;
Трудно было подправить?

[Febreze]

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

Ну, опечатался, Result:=s;
Трудно было подправить?

я не со зла, просто опыта очень мало, и весь текст принял как "отче наш"

[Febreze]

а в этом примере где ошибка? (взято полностью из книги упомянутой выше)

function Copy(S; Index,Count:Integer):string;
var
Str1:string;
Str2:Integer;
begin
Str1:='Меня зовут Михаил';
Str2:=Copy(Str1,5,5);
end;

ругается на несоответствие типов в Copy(Str1,5,5); и Missing parameter type в ...function Copy(S; Index...


ЗЫ. А в примерах выше переменную Result что, объявлять нигде не надо???

[mihali4]

Missing parameter type в ...function Copy(S;

Запомните - в заголовке для всех переменных должен явно указываться ее тип.
Для S не хватает описания string.
Правда, я не понимаю, зачем она там нужна, если нигде не используется???
Впрочем, как и остальные...
Я бы ее переделал так:
function Copy(S: string; Index,Count:Integer):string;
begin
Result:=Copy(S,Index,Count);
end;
Тогда в этом примере появляется смысл...