работы со строками 2 задачи!!

[vit1990]

Тема. ИССЛЕДОВАНИЕ ВОЗМОЖНОСТЕЙ DELPHI
ПО ОБРАБОТКЕ СИМВОЛЬНОЙ ИНФОРМАЦИИ


работа со строками!!

1. Написать программу, которая вводит текст, состоящий из нескольких предложений, и выводит на экран только цитаты, то есть предложения, заключенные в кавычки.
2. Дан текст. Вывести слова, встречающиеся в тексте по одному разу.

[Косюра]

1.

flag:=0;
for i:=1 to length(s)
if s[i]='"' then
begin
  if flag=1 then Flag:=0 else Flag:=1;
if flag=1 then записываешь куда тебе надо и делаешь то что надо когда кавычки открыты

end;

program File1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  Input = 'Text.txt';
  Output = 'Output1.txt';

var
  F, F1: textfile;
  S,S1,s2: string;
  I,k,h,q,j: integer;

begin
  Assign(F, Input);
  Assign(F1, Output);
  Reset(F); Rewrite(F1);

  while not Eof(F) do
    begin
      S:='';
      Readln(F, S);
      S:=trim(s)+' ';
      k:=0;
      for i:=1 to length(s) do
        begin
          if s[i]<>' ' then
            k:=k+1
            else
            begin
              S1:=Copy(s,i-k,k);
              Q:=0;
             for j:=i to length(s) do
              begin
                if s[j+1]<>' ' then
                    q:=q+1
                  else
                  begin
                    S2:=Copy(s,j-q+1,q);
                    if s2=s1 then
                    begin
                    delete(s,j-q+1,q);
                    for h:=1 to q do
                    Insert(' ',s,j-q+1);
                    end;
                    q:=0;
                    end;

              end;
              K:=0;

            end;

        end;

    while pos('  ',s)<>0 do
      delete(s,pos('  ',s),1);
    Writeln(S);
    Writeln(F1, S);
  end;

  Writeln;
  WriteLn('Deistvie vipolneno');
  readln;
  closefile(f1);
  closefile(f);
end.

Текст берез из входящего файла. Результат выводит на экран и в исходящий файл

[vit1990]

Плиз можешь полность скинуть 2 проета по архивам а то какая то ошибка выдает ((Delphi)

[Stilet]

а то какая то ошибка выдает ((Delphi)

Какая? Ошибку в студию.

[vit1990]

я проста не понимаю как это все реализовать и с какими компанентами!!!
скиньте плиз проекты полностью хелп??

[vit1990]

Кто может помогите?

[Косюра]

господи. Вторую программу вставь в делфи, сохрани в папке. В этой же папке создай файл Text.txt с текстом и всё! Запускай!

[vit1990]

можешь весь проект скинуть если не сложно?

[kiborrgg]

Сообщение от vit1990

я проста не понимаю как это все реализовать и с какими компанентами!!!
скиньте плиз проекты полностью хелп??

program File1;

{$APPTYPE CONSOLE}

... ... ...

Мне кажется что даже не зная Делфи, можна просто прочитать выложенный исх. текст программы и понять, что приложение консольное.

[vit1990]

мне нужно в делфи!!!