Форум: "Начинающим";
Текущий архив: 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