|
Вопрос # 6 305/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
у Меня в проге загружается файл тхт в мемо, после этого я хочу перенести данные в таблицу стрингрид, нажав на кнопку , так чтобы столбцы соответствовали количеству слов в строке, а количество строк - количеству строк в мемо.
Приложение: Переключить в обычный режим- procedure TForm1.Button2Click(Sender: TObject);
- var j:integer;
-
- begin
-
- for j := 0 to memo1.lines.count-1 do
- tabl.Cells[1,j+1] := memo1.lines.strings[j];
- end;
-
 |
Вопрос задал: uaol_kolia (статус: Посетитель)
Вопрос отправлен: 12 ноября 2012, 08:30
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Ученый
Здравствуйте, uaol_kolia!
Немного погуглив нашел аналог сишному strtok. В Делфи это функция
function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;
В нее передаются описание разделителей ( думаю в вашем случае это пробелы) и она производит разбиение строки на слова, записывая их в массив строк. Подробнее как именно пользоваться этой функцией поищите в интернете, описаний вроде предостаточно. Пример использования смотрите в приложении.
Приложение: Переключить в обычный режим- var
- sl: TStringList;
- begin
- sl := TStringList.Create;
- try
- ExtractStrings([';', ','], [' '], 'language: russian; delphi, php, c++; Ivanov', sl);
-
- finally
- sl.Free;
- end;
- end;
 |
Ответ отправил: Ученый (статус: 8-ой класс)
Время отправки: 16 ноября 2012, 07:00
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 12 ноября 2012, 09:12; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 12 ноября 2012, 08:40 [#1]:
Цитата (uaol_kolia):
чтобы столбцы соответствовали количеству слов в строке
Ну и где у тебя разбиение строк на слова?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
uaol_kolia (статус: Посетитель), 12 ноября 2012, 08:49 [#2]:
я просто не понимаю как это сделать (( думаю с помощью pos искать пробелы, а вот как мне присвоить переменной значение от пробела до пробела?
|
|
|
min@y™ (статус: Доктор наук), 12 ноября 2012, 09:02 [#3]:
Цитата (uaol_kolia):
а вот как мне присвоить переменной значение от пробела до пробела?
Функция Copy() подойдёт?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
uaol_kolia (статус: Посетитель), 12 ноября 2012, 09:12 [#4]:
да
|
12 ноября 2012, 10:24: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Алгоритмы, преобразования модератором Ерёмин А.А.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
