Главная страница
    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.004 c
2-1317192067
Alex_C
2011-09-28 10:41
2012.01.08
ValueListEditor - вид 3D как в Object Inspector


15-1316925282
РВА
2011-09-25 08:34
2012.01.08
Подскажите по железу


15-1314779981
oldman
2011-08-31 12:39
2012.01.08
"Научные" анекдоты


2-1317295658
Колька
2011-09-29 15:27
2012.01.08
MDI


1-1277762626
Deltas
2010-06-29 02:03
2012.01.08
Анимация окон Windows 7





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский