Обращение к подстроке в memo

@Dima-nk · Регистрация: 23.04.2013

Студворк — интернет-сервис помощи студентам

Вообщем, пишу программу, чекер, все сделал, но не могу сделать так, что бы при каждом запросе брало данные с новой строчки.
Скрин прикрепил. Получается так, что 12121212 - логин, а все остальное (ьввыофаовыоа
23243543:вавывыпвв) - пароль.

@ILNAR_93 · 23.04.2013, 19:17

наглядный пример:

Delphi
1
2
3
4
5
6
procedure TForm1.FormCreate(Sender: TObject);
Var i:integer;
Begin
 for i:= 0 to ListBox1.Count-1 do
  memo1.Lines.Add(ListBox1.Items[i]);
end;

или делай так чтобы при старте i равер 0 , и при запросе плюсуй к i 1
из листбокса данные бери так ListBox1.Items[i],

Delphi
1
2
3
4
5
6
7
8
procedure TForm1.FormCreate(Sender: TObject);
Var i:integer;
Begin
if i=ListBox1.Count then
exit;
i:=i+1;
  memo1.Lines.Add(ListBox1.Items[i]);
end;

@Dima-nk · 23.04.2013, 22:41 **[ТС]**

ап, можно как-то без listbox?

@Dima-nk · 26.04.2013, 23:26 **[ТС]**

ну помогите

26.04.2013, 23:39

Имеешь переменную, которую наращиваешь после каждого запроса и проверяешь чтобы не превысило количество строк в Memo.

@Dima-nk · 08.05.2013, 15:56 **[ТС]**

ну же

08.05.2013, 17:43

Как всегда ждёшь готовый код, а самому немного подумать?

@MGConstructor · 10.05.2013, 00:22

К Memo как и к ListBox-у можно обращаться к нужным строчкам:

Pascal
1
Memo1.Lines[I]

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var 
 I, C, Count : Integer;
 Login, Pass : String;
 
Count := Memo1.Lines.Count - 1;
For I := 0 to Count do
 begin
  Login := Memo1.Lines[I];
  C := Pos(':', Login);
  Pass := Copy(Login, C + 1, Length(Login) - C);
  Delete(Login, C, Length(Login) - (C - 1));
 
  ShowMessage(Login);
  ShowMessage(Pass);
 end;

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Dima-nk 1 / 1 / 1 Регистрация: 23.04.2013 Сообщений: 210

	Обращение к подстроке в memo 23.04.2013, 18:16. Показов 2416. Ответов 7 Метки нет (Все метки) Вообщем, пишу программу, чекер, все сделал, но не могу сделать так, что бы при каждом запросе брало данные с новой строчки. Скрин прикрепил. Получается так, что 12121212 - логин, а все остальное (ьввыофаовыоа 23243543:вавывыпвв) - пароль. Миниатюры 0

@Dima-nk 1 / 1 / 1 Регистрация: 23.04.2013 Сообщений: 210
	23.04.2013, 22:41 [ТС]
	ап, можно как-то без listbox? 0

@Dima-nk 1 / 1 / 1 Регистрация: 23.04.2013 Сообщений: 210
	26.04.2013, 23:26 [ТС]
	ну помогите 0

angstrom
	26.04.2013, 23:39
	Имеешь переменную, которую наращиваешь после каждого запроса и проверяешь чтобы не превысило количество строк в Memo.

@Dima-nk 1 / 1 / 1 Регистрация: 23.04.2013 Сообщений: 210
	08.05.2013, 15:56 [ТС]
	ну же 0

angstrom
	08.05.2013, 17:43
	Как всегда ждёшь готовый код, а самому немного подумать?