Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 03.07.2009, 11:58   #1
valiza
 
Регистрация: 03.07.2009
Сообщений: 8
Восклицание Прошу помощи:)

всем драсте)суть такова.есть этот код:
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k,x: integer;
s1,s: string;
begin


k:=0;

for i := 0 to Memo1.Lines.Count - 1 do
Begin
s1:= Edit1.Text;
s := Memo1.lines[i];
for j := 0 to Length(s)-1 do
Begin
if s[j] = Edit1.Text then k := k + 1;
end;

Label2.Caption := IntToStr(k);

end;

end;
procedure Tform1.Button2Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('gh.txt');

end;


end.



програма делает подсчет символов в загружонном файле(txt)
мне нужно что б она считала не только по одному символу,а и несколько символов подряд..но чет не выходит нифигапомогите если не трудно)
кто не рискует,tот не умеет жить...
valiza вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Прошу помощи! hijke Паскаль, Turbo Pascal, PascalABC.NET 0 10.06.2009 18:04
прошу помощи ex-hack Помощь студентам 2 05.06.2009 15:54