Автор Alexandr Antopulo задал вопрос в разделе Другие языки и технологии
Работа со строками и символами delphi 2010 и получил лучший ответ
Ответ от Капитан Гугл[гуру]
for i := 0 to Memo.Lines.Count - 1 do begin delim := 1; while ( not Memo1.Lines[ i ][ delim ] in D ) and ( delim < length( Memo1.Lines[ i ] ) do inc( delim ); // delim - номер разделителя из D article := delim; while ( not Memo1.Lines[ i ][ article ] in P ) and ( article > 1 ) do dec( article ); //article - номер первого символа артикула Memo2.Lines.Add( Copy( Memo1.Lines[ i ], article, delim - article ) );end;вот как-то так...
Ответ от Joken hig Vorfen[гуру]
подробнее пишите где ошибка и как нужно
подробнее пишите где ошибка и как нужно
Ответ от Пойдём пожрём[гуру]
У меня такой вот вполне рабочий вариант получился:
procedure TForm1.Button1Click(Sender: TObject);
const
? ARTICLE_END = '|';
var
? StuffList, Article : String;
? ArticleEndPos : Integer = 1;
? ArticleSymbolCount : Integer;
? ArticleSymbols : set of Char;
begin
? ArticleSymbols := ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '-'];
? StuffList := Memo1.Text;
? repeat
? ? ArticleEndPos := PosEx(ARTICLE_END, StuffList, ArticleEndPos);
? ? if (ArticleEndPos <> 0) then
? ? begin
? ? ? Article := '';
? ? ? ArticleSymbolCount := ArticleEndPos - 1;
? ? ? while(StuffList[ArticleSymbolCount] in ArticleSymbols) do
? ? ? begin
? ? ? ? Article := StuffList[ArticleSymbolCount] + Article;
? ? ? ? Dec(ArticleSymbolCount);
? ? ? end;
? ? ? Memo2.Lines.Add(Article);
? ? ? Inc(ArticleEndPos);
? ? end;
? until (ArticleEndPos = 0);
end;
Только надо подключить StrUtils.
У меня такой вот вполне рабочий вариант получился:
procedure TForm1.Button1Click(Sender: TObject);
const
? ARTICLE_END = '|';
var
? StuffList, Article : String;
? ArticleEndPos : Integer = 1;
? ArticleSymbolCount : Integer;
? ArticleSymbols : set of Char;
begin
? ArticleSymbols := ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '-'];
? StuffList := Memo1.Text;
? repeat
? ? ArticleEndPos := PosEx(ARTICLE_END, StuffList, ArticleEndPos);
? ? if (ArticleEndPos <> 0) then
? ? begin
? ? ? Article := '';
? ? ? ArticleSymbolCount := ArticleEndPos - 1;
? ? ? while(StuffList[ArticleSymbolCount] in ArticleSymbols) do
? ? ? begin
? ? ? ? Article := StuffList[ArticleSymbolCount] + Article;
? ? ? ? Dec(ArticleSymbolCount);
? ? ? end;
? ? ? Memo2.Lines.Add(Article);
? ? ? Inc(ArticleEndPos);
? ? end;
? until (ArticleEndPos = 0);
end;
Только надо подключить StrUtils.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Работа со строками и символами delphi 2010
Подскажите как обратиться к символу в строке (VBA)
Увидел begin и чуть не получил разрыв сердца.
Неужели, думаю, создали Delphi Applications for
подробнее...
спросили в ISDN Stdio h
Вопрос по функции Си strtok. Никак не могу разобраться как она работает...
Добрый вечер!
Постарался рассказать об этой функции максимально кратко и понятно (а
подробнее...
Вопрос по функции Си strtok. Никак не могу разобраться как она работает...
Добрый вечер!
Постарался рассказать об этой функции максимально кратко и понятно (а
подробнее...
Delphi: Как сделать чтобы файл, открытый с помощью моей программы заносился в поле Memo? (типа notepad) ?
У компонента Memo есть есть свойство LoadFromFile() (Memo1.Lines.LoadFromFile();)- где указывается
подробнее...
Вопрос по Delphi 7. Функция VarIsNumeric.
var
x: Real;
try
x := StrToFloat(Edit1.Text);
except
x := 0; // не
подробнее...
Delphi работа со строками
Сделай програму используя множества из символов латиницы и объедини с сортировкой первая страка
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
как начать программировать на С++ ?
Среда разработки обычно лишь создаёт определённые удобства.
Но такие визуальные среды как
подробнее...
спросили в 1059 год
где в России находится самый старый Цирк?
Самому старому цирку России — 130 лет....
Большой Санкт-Петербургский государственный
подробнее...
где в России находится самый старый Цирк?
Самому старому цирку России — 130 лет....
Большой Санкт-Петербургский государственный
подробнее...
калькулятор в delphi 7
if k<>0 then
Значение k какое? Что с 0 сравнивается?
s1:=StrToInt(Edit1.Text);
подробнее...