опять CASE

[Kolik317]

есть функция - берет значения из радиогруппы с 3мя значениями L,UTC,DYN

function TForm2.getTZ: string;
begin
gettz:=form2.RadioGroup1.Items[radiogroup1.ItemIndex];
end;

как сделать такой код на проверку значения и присвоения строке

begin
case gettz() of
'L': str1:= '1';
'UTC': str1 = '2';
'DYN': str1 = '3';

что не так написал?=) ругается Ordinal type required и incompatible types : integer and string.

А кто код когда-нибудь научится оформлять по правилам?
Срочно читаем правила...

[spamer]

Эээ шото я не понял, а зачем так голову замарачивать, не проще проверять ItemIndex:

  case form2.RadioGroup1.ItemIndex of
    0 : str1 := '1';
    1 : str1 := '2';
    2 : str1 := '3';
  end;

[Kolik317]

Спасибо =)
а ВОТ как для строки нашел=)

const
  vlist = 'первый, второй, третий';

var
  Values: TStringList;

procedure SetValues(VL : TStringList; S: String);
var
  I : Integer;
begin
  VL.CommaText := S;
  for I := 0 to CL.Count-1 do
    VL.Objects[I] := Pointer(I);
  VL.Sorted := True;
end;

function GetValueIndex(VL : TStringList; Match: String): Integer;
begin
  Result := VL.IndexOf(Match);
  if Result >= 0 then
    Result := Integer(VL.Objects[Result]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  case GetValueIndex(Values, Edit1.Text) of
    -1: {не найден} ;
     0: Caption := '0';
     1: Caption := '1';
     2: Caption := '2';
  end;
end;

initialization
  VL := TStringList.Create;
  SetValues(VL, vlist);

finalization
  VL.Free;

п.с. правила прочитал, а правила оформления постов не вижу

[mihali4]

п.с. правила прочитал, а правила оформления постов не вижу

Самая верхняя тема:

Объявление: Правила раздела (читать всем без исключения)

Оттуда:

2. Не использовать прикрепленные файлы для исходного текста программы и заданий. Для кода есть тег CODE (значок # в редакторе ответа).

[Kolik317]

ok doc!

readln 'pravila razdela':=true

Вопросов больше нет