Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты! Возник такой вопрос... Понимаю что ничего сложного но хотелось бы узнать... Как разделить 2 слова из memo через ; и вставить ее в поля edit 1,2... 123;321 без copy, delete. Копал в сторону DelimitedText. Если есть возможность помогите пожалуйста с решением этого вопроса, желательно пример, или готовый код с объяснением было бы супер, заранее спасибо.

Вопрос задал: Smiluk (статус: Посетитель) Вопрос отправлен: 3 июля 2010, 00:38 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Ну вот как-то так:

procedure SplitString(const S: string; var Res1, Res2: string);
var
  List: TStringList;
begin
  List:= TStringList.Create();
  try
    List.Delimiter:= ';';
    List.DelimitedText:= S;
 
    if List.Count <> 0
      then Res1:= List[0];
 
    if List.Count > 1
      then Res2:= List[1];
  finally
    List.Free();
  end;
end;

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 3 июля 2010, 09:00 Оценка за ответ: 5 Комментарий к оценке: Спасибо большое! То что нужно. Вопрос закрыт.

Мини-форум вопроса

Страницы: [« Предыдущая] [1] [2]

min@y™ (статус: Доктор наук), 10 июля 2010, 09:32 [#21]: Цитата (Smiluk): Извините что гружу сного... "Сного" - классное слово! Надо записать и добавить в википедию! Цитата (Smiluk): но можно комментарии к вашему коду? А тебе что-то не понятно? Спрашивай. Цитата (Smiluk): но.. function IsValidEMail она обязательно должна быть функцией? Просто у меня авторизация написанна в - procedure TForm1.Button1Click(Sender: TObject). Согласись, так, ведь, удобнее! Я всегда разделяю общую задачу на подзадачи, так программу легче и быстрее отлаживать. Идеально бы было вообще логиниться в несколько потоков одновременно. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Smiluk (статус: Посетитель), 10 июля 2010, 15:06 [#22]: Я понимаю что удобней, но авторизация идет через button1click. Побывал убирать функцию... из одной ошибки появляется другая и так до бесконечности... Как можно прикрутить авторизацию которая написана в button1click?

min@y™ (статус: Доктор наук), 10 июля 2010, 15:25 [#23]: Цитата (Smiluk): Я понимаю что удобней, но авторизация идет через button1click. Всё, пипец, железно? Да делай ты, как хочешь! Никто ж тебя не заставляет. Цитата (Smiluk): Побывал убирать функцию... Куда убирать? Цитата (Smiluk): из одной ошибки появляется другая и так до бесконечности... Дык, ошибки надо обрабатывать... Цитата (Smiluk): Как можно прикрутить авторизацию которая написана в button1click? Без комментаев... Если ты не хочешь переделывать (или даже написать с нуля) свою программу, то зачем просишь консультации у профессионалов? 1хрен, ведь, сделаешь по-своему. Я дал тебе пример, который показывает, как это сделал бы я. Не нравится - делай как хочешь. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Smiluk (статус: Посетитель), 10 июля 2010, 15:35 [#24]: Ладно, спасибо.

Страницы: [« Предыдущая] [1] [2]

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.