Напишите прогу

Тема в разделе "Delphi - Базы данных", создана пользователем Dimapokal, 14 мар 2009.

  1. Dimapokal

    Dimapokal Гость

    нада прога которая: 1.из введенного рядка в МЕМО удаляет слова которие стоят после комы (например: "я люблю сидеть в инете, но мне, очень дорого." после выполнения програмы "я люблю сидеть в инете, мне, дорого.")
    2.из введенных рядков в МЕМО считает сколько рядков с непарным количеством слов.

    Помогите плиз!!! очень нада!!!
     
  2. etc

    etc Гость

    армия поможет
     
  3. Dimapokal

    Dimapokal Гость

  4. BurcevD

    BurcevD Гость

    1. Задание

    function deleteaftercomma(S:string):String;
    var i:Integer;
    IsAfter:Boolean;
    Res:string;
    Begin
    IsAfter:=false;
    s:=' '+s+' ';
    Res:='';
    For i:=2 to Length(s) do
    begin
    if (s[i-1]=',') and (s=' ') then IsAfter:=true else
    if (s[i-1]<>' ') and (s=' ') then IsAfter:=false;
    If not IsAfter then Res:=Res+s;
    end;
    Result:=Res;
    end;

    Вторая непонятна, либо есть парные слова (повторяющиеся) либо четное количество
     
  5. Dimapokal

    Dimapokal Гость

    ой пасиба!!!!
     
Загрузка...
Похожие Темы - Напишите прогу
  1. Луиза
    Ответов:
    0
    Просмотров:
    297
  2. Davidka
    Ответов:
    0
    Просмотров:
    1.212
  3. bazleiter
    Ответов:
    1
    Просмотров:
    2.976
  4. Клюковка
    Ответов:
    1
    Просмотров:
    1.282
  5. vital
    Ответов:
    0
    Просмотров:
    2.483

Поделиться этой страницей