| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

вопрос про строку

Adios ©   (2006-10-18 18:04:00) 

когда пытаюсь компилировать то компилятор ругается на строку
function FontToStr(font: TFont): string;
 procedure yes(var str: string);
 begin

   str := str + 'y';
 end;
 procedure no(var str: string);
 begin

   str := str + 'n';
 end;
begin

 {êîäèðóåì âñå àòðèáóòû TFont â ñòðîêó}
 Result := '';
 Result := Result + IntToStr(font.Color) + '|';
 Result := Result + IntToStr(font.Height) + '|';
 Result := Result + font.Name + '|';
 Result := Result + IntToStr(Ord(font.Pitch)) + '|';
 Result := Result + IntToStr(font.PixelsPerInch) + '|';
 Result := Result + IntToStr(font.size) + '|';
 if fsBold in font.style then
   yes(Result)
 else
   no(Result);
 if fsItalic in font.style then
   yes(Result)
 else
   no(Result);
 if fsUnderline in font.style then
   yes(Result)
 else
   no(Result);
 if fsStrikeout in font.style then
   yes(Result)
 else
   no(Result);
ini.WriteString('RichEdit','font',Result);
end;
function tok(sep: string; var s: string): string;

 function isoneof(c, s: string): Boolean;
 var
   iTmp: integer;
 begin
   Result := False;
   for iTmp := 1 to Length(s) do
   begin
     if c = Copy(s, iTmp, 1) then
     begin
       Result := True;
       Exit;
     end;
   end;
 end;
var

 c, t: string;
begin

 if s = '' then
 begin
   Result := s;
   Exit;
 end;
 c := Copy(s, 1, 1);
 while isoneof(c, sep) do
 begin
   s := Copy(s, 2, Length(s) - 1);
   c := Copy(s, 1, 1);
 end;
 t := '';
 while (not isoneof(c, sep)) and (s '') do
 begin
   t := t + c;
   s := Copy(s, 2, length(s) - 1);
   c := Copy(s, 1, 1);
 end;
 Result := t;
end;

procedure StrToFont(str: string; font: TFont);
begin

 if str = '' then
   Exit;
 font.Color := StrToInt(tok('|', str));
 font.Height := StrToInt(tok('|', str));
 font.Name := tok('|', str);
 font.Pitch := TFontPitch(StrToInt(tok('|', str)));
 font.PixelsPerInch := StrToInt(tok('|', str));
 font.Size := StrToInt(tok('|', str));
 font.Style := [];
ОШИБКА ЗДЕСЬ======>  if str[0] = 'y' then
   font.Style := font.Style + [fsBold];
 if str[1] = 'y' then
   font.Style := font.Style + [fsItalic];
 if str[2] = 'y' then
   font.Style := font.Style + [fsUnderline];
 if str[3] = 'y' then
   font.Style := font.Style + [fsStrikeout];
end;

---

Anatoly Podgoretsky   (2006-10-18 19:43:00) [1]

И нафига ты весь код сюда вывалил, хватило бы той строки.

---

Kolan   (2006-10-18 19:04:00) [2]

> Loginov Dmitry ©   (18.10.06 19:00) [6]

Так смотришь и думаешь- бедные компилятор все терпит..

Adios
Интересно зачем Фонт в строку преврашать?

---

Loginov Dmitry   (2006-10-18 19:00:00) [3]

Adios ©   (18.10.06 18:04)
if fsBold in font.style then
  yes(Result)
else
  no(Result);
if fsItalic in font.style then
  yes(Result)
else
  no(Result);
if fsUnderline in font.style then
  yes(Result)
else
  no(Result);
if fsStrikeout in font.style then
  yes(Result)
else
  no(Result);

А непроще ли так:

Result := Result + IntToStr(Byte(font.style));

---

Ketmar   (2006-10-18 18:56:00) [4]

ужос, а не код...

---

Kolan   (2006-10-18 18:43:00) [5]

> procedure yes(var str: string);
>  begin
>
>    str := str + 'y';
>  end;
>  procedure no(var str: string);
>  begin
>
>    str := str + 'n';
>  end;


procedure ОБХСС;:)

---

icWasya   (2006-10-18 18:09:00) [6]

ОШИБКА ЗДЕСЬ======>  if str[0] = 'y' then

символы в строке нумеруются с единицы

if (length(str)>0)and(str[ 1 ] = 'y') then
и соответственно исправить индексы в следующих четырёх строках

---

@!!ex   (2006-10-18 18:09:00) [7]

Кстати, код местами не очень. Тя жело читать, нехватает редактирования.
Например есть isoneof, а должно быть IsOneOf
Лесенка опять же непонятная.
Иногда 1 пробел, иногда два.... От чего зависит????
НЕпонятное использование пустой строки. Чето она разделяет не то что нужно...

ИМХО.

---

@!!ex   (2006-10-18 18:06:00) [8]

Может фича в том, что у строк нумерация начинается с 1? :))

---

Наверх