Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2012.01.08;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.003 c
15-1316464181
Юрий
2011-09-20 00:29
2012.01.08
С днем рождения ! 20 сентября 2011 вторник


15-1316162516
И. Павел
2011-09-16 12:41
2012.01.08
Переезд в Санкт-Петербург


1-1279098114
packpaul
2010-07-14 13:01
2012.01.08
Реализация null-методов класса в Delphi


15-1316636981
Юрий
2011-09-22 00:29
2012.01.08
С днем рождения ! 22 сентября 2011 четверг


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





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский