VPF::как разбить строку на подстроки

Данкинг

Дата 24.9.2012, 23:09 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(supervladislav @ 24.9.2012, 23:57

)

вот в этой строке.

Число открывающих и закрывающих скобок не совпадает, дальше можно уже не смотреть.

Это сообщение отредактировал(а) Данкинг - 24.9.2012, 23:09

--------------------

There's nothing left but silent epitaphs.

northener

Дата 25.9.2012, 00:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Цитата(supervladislav @ 24.9.2012, 22:57

)

какие данные являются входящимим вот сюда?

Вот тебе пример использования TStringList для разбития строки на отдельные слова.

Это сообщение отредактировал(а) northener - 25.9.2012, 14:12

Присоединённый файл ( Кол-во скачиваний: 6 )

Project28.rar 7,31 Kb

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

supervladislav

Дата 25.9.2012, 16:42 (ссылка)

(нет голосов)

Загрузка ...

///\\\///\\\///\\\

Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

Репутация: нет
Всего: -9

northener, посмотрел несколько очень хороших примеров
Вроде написал вот так, но компилятор тылдычет вот на этой строке ,
но где тут может быть пропущена точка или скобка ума не приложу.
[DCC Error] Unit1.pas(278): E2066 Missing operator or semicolon

Код


strs.DelimitedText(load(OpenDialog1.FileName));

Код


procedure TForm1.Button2Click(Sender: TObject);
var s:integer;
var  strs:TStringList;
begin
strs:=TStringList.Create;
If OpenDialog1.Execute then
begin
strs.Delimiter := ' ';
strs.QuoteChar:= ',';
strs.DelimitedText(load(OpenDialog1.FileName));
for s:=0 to strs.Count  do
ShowMessage(strs[s]);
end;
end;

Это сообщение отредактировал(а) supervladislav - 25.9.2012, 17:14

Данкинг

Дата 25.9.2012, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

supervladislav, ты смотрел пример northener'а ?

Код


procedure TForm30.Button1Click(Sender: TObject);
var
  StL : TStringList;
  i : Integer;
begin
  StL:=TStringList.Create;
  try
    StL.Delimiter:=#32; //Пробел
    StL.DelimitedText:=Edit1.Text;
    Memo1.Lines.Clear;
    for i:=0 to StL.Count-1 do Memo1.Lines.Add(StL[i]);
  finally
    StL.Free;
  end;
end;

Это сообщение отредактировал(а) Данкинг - 25.9.2012, 16:54

--------------------

There's nothing left but silent epitaphs.

supervladislav

Дата 25.9.2012, 17:03 (ссылка)

(нет голосов)

Загрузка ...

///\\\///\\\///\\\

Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

Репутация: нет
Всего: -9

Данкинг,
northener, я смотрел его пример, но просто к этому времени я уже смог сделать свой пример пока неработоспособный,
вот туе я увидел вариант примера
http://www.delphibasics.ru/TStringList.php

supervladislav

Дата 25.9.2012, 18:25 (ссылка)

(нет голосов)

Загрузка ...

///\\\///\\\///\\\

Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

Репутация: нет
Всего: -9

northener, пока не понял ваш пример слишком пока много непонятных мне компонентов , сейчас почитаю.

northener

Дата 26.9.2012, 01:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Цитата(supervladislav @ 25.9.2012, 18:25

)

northener, пока не понял ваш пример слишком пока много непонятных мне компонентов

Да чего ж там "слишком много непонятного" в дюжине строчек?

Цитата(supervladislav @ 25.9.2012, 16:42

)

strs.DelimitedText(load(OpenDialog1.FileName));

Откуда ты взял сей код? Он явно не Дельфийский.

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

supervladislav

Дата 26.9.2012, 20:44 (ссылка)

(нет голосов)

Загрузка ...

///\\\///\\\///\\\

Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

Репутация: нет
Всего: -9

northener, это привычка осталась от php.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »