Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2012.01.08;
Скачать: CL | DM;

Вниз

Разложить строку посимвольно   Найти похожие ветки 

 
alexdn ©   (2011-10-03 12:51) [0]

и ещё нужно из строки выбросить все знаки до пробела, т.е.
6 Маша
for i:=1 to Length(StrList[6]) do begin
if StrList[6].символ<>" " then StrList[6].символ:="";
end;
как добраться до символов?


 
Медвежонок Пятачок ©   (2011-10-03 12:55) [1]

добраться через еще одни квадратные скобки


 
Ega23 ©   (2011-10-03 12:55) [2]


> как добраться до символов?

Строка это массив символов.


 
alexdn ©   (2011-10-03 12:59) [3]

> Медвежонок Пятачок ©   (03.10.11 12:55) [1]
StrList[6].index[i]? как то ж так, как правильно?..


 
Ega23 ©   (2011-10-03 13:02) [4]


> StrList[6].index[i]? как то ж так, как правильно?..

Может таки пора уже?
http://docwiki.embarcadero.com/RADStudio/en/String_Types


 
Медвежонок Пятачок ©   (2011-10-03 13:11) [5]

StrList[6].index[i]? как то ж так, как правильно?..

а может вот так круче?
StrList[6].yandex[i]


 
alexdn ©   (2011-10-03 13:25) [6]

тогда совсем простой вопрос, if s[i]<>" " then begin s[i]:=""; но ведь пустой символ char принимать не хочет..


 
Inovet ©   (2011-10-03 13:28) [7]

ищи первый пробел функцией Pos


 
Медвежонок Пятачок ©   (2011-10-03 13:28) [8]

потому что "пустой символ" здесь - не символ, а строка.
строку нельзя присвоить символу.


 
Ega23 ©   (2011-10-03 13:29) [9]


> тогда совсем простой вопрос, if s[i]<>" " then begin s[i]:
> =""; но ведь пустой символ char принимать не хочет..


Строка это массив символов. Подумай над этим.


 
Slym ©   (2011-10-03 13:29) [10]

есть выпиленая из Indy функция
function Fetch(var AInput: string;
const ADelim: string = " "; const ADelete: Boolean = true): string;
var
iPos: Integer;
begin
if ADelim = #0 then begin
  // AnsiPos does not work with #0
  iPos := Pos(ADelim, AInput);
end else begin
  iPos := Pos(ADelim, AInput);
end;
if iPos = 0 then begin
  Result := AInput;
  if ADelete then begin
    AInput := "";
  end;
end else begin
  result := Copy(AInput, 1, iPos - 1);
  if ADelete then begin
    Delete(AInput, 1, iPos + Length(ADelim) - 1);
  end;
end;
end;


s:="6 Маша";
Fetch(s," ",true);


 
alexdn ©   (2011-10-03 13:44) [11]

> Slym ©   (03.10.11 13:29) [10]
работает как часы:) спасибо.


 
Anatoly Podgoretsky ©   (2011-10-03 19:10) [12]


> но ведь пустой символ char принимать не хочет..

Не не хочет, а не может.
А это разные вещи.


 
Anatoly Podgoretsky ©   (2011-10-03 19:11) [13]


> ищи первый пробел функцией Pos

ищи первый пробел любой функцией, которую знаешь



Страницы: 1 вся ветка

Текущий архив: 2012.01.08;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.008 c
2-1317185032
я
2011-09-28 08:43
2012.01.08
Форматирование кода программы в среде разработки


2-1317392685
Сергей
2011-09-30 18:24
2012.01.08
Как выполнить репликацию Access c помощью Delphi?


2-1317733017
SergP
2011-10-04 16:56
2012.01.08
Есть ли в Delphi функция проверки IP-адреса на валидность?


2-1317480831
Mishanja
2011-10-01 18:53
2012.01.08
Выделение строки в ListView


2-1310979425
D_2010
2011-07-18 12:57
2012.01.08
Как обработать приход нескольких одинаковых TMessage как одно?