Строки в делфи

[ПИнасол]

Надо посчитать в какой строке наибольшее количество точек и вывести в edit3.

S=edit1.text
S[i] it S[i]='.' then p1=p1+1;
S=edit2.text
S[i] it S[i]='.' then p1=p1+1

вот что-то наподобия кода%)
подскажите что делать.
p.s. заранее спасибо

[Serge_Bliznykov]

s := edit1.text; // в принципе можно и без S - прямо с edit1.Text напрямую работать...
p1 := 0;
for i:=1 to Length(s) do
  if s[i] = '.' then Inc(p1);
s := edit2.text; // в принципе можно и без S - прямо с edit2.Text напрямую работать...
p2 := 0;
for i:=1 to Length(s) do
  if s[i] = '.' then Inc(p2);

if p1>p2 then Edit3.text := 'в первой строке точек больше, их там '+IntToStr(p1)+' штук.'
else
  if p2>p1 then Edit3.text := 'во второй строке точек больше, их там '+IntToStr(p2)+' штук.'
  else Edit3.text := 'одинаковое число точек, в каждой строке их ровно '+IntToStr(p2)+' штук.';

[ПИнасол]

вот что у меня получается но все равно не работает

procedure TForm1.Button1Click(Sender: TObject);
Var
p1,p2,length,i:integer;
Begin
edit1.text; // в принципе можно и без S - прямо с edit1.Text напрямую работать...
p1 := 0;
for i:=1 to Length  do
  if [i] = '.' then Inc(p1);
edit2.text; // в принципе можно и без S - прямо с edit2.Text напрямую работать...
p2 := 0;
for i:=1 to Length do
  if [i] = '.' then Inc(p2);

if p1>p2 then Edit3.text := 'в первой строке точек больше, их там '+IntToStr(p1)+' штук.'
else
  if p2>p1 then Edit3.text := 'во второй строке точек больше, их там '+IntToStr(p2)+' штук.'
  else Edit3.text := 'одинаковое число точек, в каждой строке их ровно '+IntToStr(p2)+' штук.';
  end;
  end.

кидает ошибку сюда

if [i] = '.' then Inc(p1);

после then (incompatible type)




___________
Код нужно оформлять по правилам:
не тегом "цитата", а тегом [CODE]..[/СODE] (это кнопочка с решёточкой # - правее знака "цитата" на панели)
Не забывайте об этом!
Модератор.

[ViktorR]

Это такой принцип, пропускать части кода без осмысления сказанного?
Было ведь написано:

Serge_Bliznykov

s := edit1.text; // в принципе можно и без S - прямо с edit1.Text напрямую работать...
p1 := 0;
for i:=1 to Length(s) do
  if s[i] = '.' then Inc(p1);

И это надо понимать так:

p1 := 0;
for i:=1 to Length(s) do
  if edit1.text[i] = '.' then Inc(p1);

А что может означать такой набор символов [i] ?

Это вопрос для осмысления ваших ошибок.

Вроде так ...

[ПИнасол]

procedure TForm1.Button1Click(Sender: TObject);
Var
s,p1,p2,i:integer;
Begin
p1 := 0;
for i:=1 to Length (s) do
if edit1.text[i] = '.' then Inc(p1);
p2 := 0;
for i:=1 to Length do
if edit2.text[i] = '.' then Inc(p2);

if p1>p2 then Edit3.text := 'â ïåðâîé ñòðîêå òî÷åê áîëüøå, èõ òàì '+IntToStr(p1)+' øòóê.'
else
if p2>p1 then Edit3.text := 'âî âòîðîé ñòðîêå òî÷åê áîëüøå, èõ òàì '+IntToStr(p2)+' øòóê.'
else Edit3.text := 'îäèíàêîâîå ÷èñëî òî÷åê, â êàæäîé ñòðîêå èõ ðîâíî '+IntToStr(p2)+' øòóê.';
end;
end.

понял свою ошибку,но кидает на

for i:=1 to Length (s) do

и пишет несовместимые типы...я так понимаю я S неправильно объявляю? или что тут надо дописать?

[Npwas]

Угу =)

Var
 s:string;

[ПИнасол]

всё программа запускается,но не работает полностью...т.е. не ищет где больше точек....при любом раскладе точек пишет

одинаковое число точек, в каждой строке их ровно 0 штук.

[weech]

Везде перед "[i]" допишите "s".

[Serge_Bliznykov]

for i:=1 to Length(s) do
if edit1.text[i] = '.' then Inc(p1);

неверно!!!
если отказываться от S - так отказываться ВЕЗДЕ!!!!
Почему цикл до длины строки S - если в неё ничего не писали?!?!!!!
надо или так:

var s : string;
  p1,p2 :integer;
Begin
  p1 := 0;
  s := Edit1.Text;
  for i:=1 to Length (s) do
     if s[i] = '.' then Inc(p1);
  p2 := 0;
  s := Edit2.Text;
  for i:=1 to Length(s) do
    if s[i] = '.' then Inc(p2);

либо так:

var   // s - не описываем и не используем!
  p1,p2 :integer;
Begin
  p1 := 0;
  for i:=1 to Length(Edit1.Text) do
     if Edit1.Text[i] = '.' then Inc(p1);
  p2 := 0;
  for i:=1 to Length(Edit2.Text) do
    if Edit2.Text[i] = '.' then Inc(p2);

Не могу понять, почему не взять МОЙ КОД из пост#2 ЦЕЛИКОМ?!?!?!? если уж непонятно, зачем S, какого она типа, для чего i в квадратных скобочках и прочие сложности?!!!

[ПИнасол]

спасибо большое Сергей..заработало=)
p.s. тема закрыта