1 Тема від phantom823 Востаннє редагувалося phantom823 (29.05.2013 16:49:03)

  • phantom823
  • Користувач
  • Поза форумом
  • Дата реєстрації: 29.05.2013
  • Повідомлень: 5
    • Репутація: 0

Тема: Робота з TStringList

Вибачте!
1.В текстовому файлі (вибирає користувач) знайти кількість рядків, що починаються зі знака!. Використовуючи властивості і методи класу TStringList
2.Переписати вміст текстового файлу (вибирає користувач) в новий текстовий файл (вибирає користувач), замінюючи точками комами, використовуючи властивості і методи класу TStringList

2 Відповідь від Replace

  • Replace
  • Replace Team
  • Поза форумом
  • Звідки: Київ
  • Дата реєстрації: 06.04.2012
  • Повідомлень: 2 895
    • Репутація: 2106

Re: Робота з TStringList

http://replace.org.ua/rules/

Подякували: koala1

Replace вебсайт

3 Відповідь від Replace

  • Replace
  • Replace Team
  • Поза форумом
  • Звідки: Київ
  • Дата реєстрації: 06.04.2012
  • Повідомлень: 2 895
    • Репутація: 2106

Re: Робота з TStringList

Тобто вам потрібно написати програму на Delphi і у вас немає ніяких напрацювань?

Replace вебсайт

4 Відповідь від phantom823

  • phantom823
  • Користувач
  • Поза форумом
  • Дата реєстрації: 29.05.2013
  • Повідомлень: 5
    • Репутація: 0

Re: Робота з TStringList

Replace написав:

Тобто вам потрібно написати програму на Delphi і у вас немає ніяких напрацювань?

першу я зробив,а другу не можу

5 Відповідь від phantom823

  • phantom823
  • Користувач
  • Поза форумом
  • Дата реєстрації: 29.05.2013
  • Повідомлень: 5
    • Репутація: 0

Re: Робота з TStringList

Ось перша задача,в мене вона не працюе,прошу перевірте на помилки

 var
F:TStringList;
i,j,kol:integer;
S:String;
begin
F:=TStringList.Create;
If OpenDialog1.Execute then begin
F.loadfromfile(OpenDialog1.FileName);
For i:=0 to F.Count-1 do begin
F.Strings[i];
For j:=1 to length(S) do
If length(s)=' ' then kol:=kol+1;
F.SavetoFile('C:\1.txt')
F.Free;
end;


end;

end.

6 Відповідь від cuhedg Востаннє редагувалося cuhedg (29.05.2013 18:02:25)

  • cuhedg
  • cuhedg
  • Користувач
  • Поза форумом
  • Звідки: Київ
  • Дата реєстрації: 24.05.2013
  • Повідомлень: 33
    • Репутація: 34

Re: Робота з TStringList

procedure TForm1.Button1Click(Sender: TObject);
var
  F:TStringList;
  i,j,kol:integer;
  S:String;
begin
kol:= 0;
F:=TStringList.Create;
If OpenDialog1.Execute then
begin
  F.loadfromfile(OpenDialog1.FileName);
  For i:=0 to F.Count-1 do
    if (Pos('!', F.Strings[i]) = 1) then kol:=kol+1;
  F.Free;
  ShowMessage(IntToStr(kol));
end;
end;

А так?

7 Відповідь від phantom823

  • phantom823
  • Користувач
  • Поза форумом
  • Дата реєстрації: 29.05.2013
  • Повідомлень: 5
    • Репутація: 0

Re: Робота з TStringList

cuhedg написав:
procedure TForm1.Button1Click(Sender: TObject);
var
  F:TStringList;
  i,j,kol:integer;
  S:String;
begin
kol:= 0;
F:=TStringList.Create;
If OpenDialog1.Execute then
begin
  F.loadfromfile(OpenDialog1.FileName);
  For i:=0 to F.Count-1 do
    if (Pos('!', F.Strings[i]) = 1) then kol:=kol+1;
  F.Free;
  ShowMessage(IntToStr(kol));
end;
end;

А так?

так,розібрався!
тепер 2 треба

8 Відповідь від DOP Востаннє редагувалося DOP (29.05.2013 23:49:38)

  • DOP
  • Replace Group
  • Поза форумом
  • Звідки: Львів
  • Дата реєстрації: 18.09.2012
  • Повідомлень: 138
    • Репутація: 73

Re: Робота з TStringList

Дещо не по темі, але в даному прикладі буде витік пам'яті, якщо юзер скасує діалог.
Тобто, метод F.Free потрібно винести приблизно ось так:

cuhedg написав:
procedure TForm1.Button1Click(Sender: TObject);
var
  F:TStringList;
  i,j,kol:integer;
  S:String;
begin
  kol:= 0;
  F:=TStringList.Create;
  If OpenDialog1.Execute then
  begin
    F.loadfromfile(OpenDialog1.FileName);
    For i:=0 to F.Count-1 do
      if (Pos('!', F.Strings[i]) = 1) then kol:=kol+1;
    ShowMessage(IntToStr(kol));
  end;
  F.Free;
end;
Подякували: cuhedg1

9 Відповідь від Torbins

  • Torbins
  • Torbins
  • Replace Team
  • Поза форумом
  • Дата реєстрації: 07.05.2012
  • Повідомлень: 3 089
    • Репутація: 2282

Re: Робота з TStringList

тепер 2 треба

Згадуєте про існування StringReplace та TSaveDialog, і вперед.

10 Відповідь від ADR Востаннє редагувалося ADR (08.06.2013 00:43:32)

  • ADR
  • ADR
  • Replace Group
  • Поза форумом
  • Дата реєстрації: 28.01.2013
  • Повідомлень: 540
    • Репутація: 254

Re: Робота з TStringList

phantom823 написав:

Ось перша задача,в мене вона не працюе,прошу перевірте на помилки

 var
F:TStringList;
i,j,kol:integer;
S:String;
begin
F:=TStringList.Create;
If OpenDialog1.Execute then begin
F.loadfromfile(OpenDialog1.FileName);
For i:=0 to F.Count-1 do begin
F.Strings[ i];
For j:=1 to length(S) do
If length(s)=' ' then kol:=kol+1;
F.SavetoFile('C:\1.txt')
F.Free;
end;


end;

end.

Ясно що не компілюється:


>>F.Strings[ i];
ти читаєш властивість в нікуди. (напр: відкрив книжку, але не дивишся  неї)


і хіба не було попередження що "значення присвоєне перемінні "kol" - не використовується"
та "перемінна "kol" може бути не ініціалізована"?


>>If length(s)=' ' then kol:=kol+1;
"несумісні типи: число і рядок"


"Перемінна "S" може бути не ініціалізована"







Компілятор ж усе каже...

11 Відповідь від ADR

  • ADR
  • ADR
  • Replace Group
  • Поза форумом
  • Дата реєстрації: 28.01.2013
  • Повідомлень: 540
    • Репутація: 254

Re: Робота з TStringList

cuhedg написав:
procedure TForm1.Button1Click(Sender: TObject);
var
  F:TStringList;
  i,j,kol:integer;
  S:String;
begin
  kol:= 0;
  F:=TStringList.Create;
  If OpenDialog1.Execute then
  begin
    F.loadfromfile(OpenDialog1.FileName);
    For i:=0 to F.Count-1 do
      if (Pos('!', F.Strings[i]) = 1) then kol:=kol+1;
    ShowMessage(IntToStr(kol));
  end;
  F.Free;
end;

так краще але теж погано... а якщо станеться OutOfMemory (закінчилась оперативка), або не та фаза місяця?

потрібно обгортати роботу на виділеною пам'яттю в try finally і як на мене об'єкт треба створювати безпосередньо перед використанням


procedure TForm1.Button1Click(Sender: TObject);
var
  F:TStringList;
  i,j,kol:integer;
  S:String;
begin
  kol:= 0;
  If OpenDialog1.Execute then
  begin
    F:=TStringList.Create;
    try
      F.loadfromfile(OpenDialog1.FileName);
      For i:=0 to F.Count-1 do
        if (Pos('!', F.Strings[i]) = 1) then kol:=kol+1;
      ShowMessage(IntToStr(kol));
    finally
        F.Free;
    end;
  end;
end;

ПС: до ТС: якщо ви цікавитесь програмуванням - дотримуйтесь стилю форматування (стилю Borland - він стандартний для делфі)