Memo

[elagin]

Как сделать так штобы , например есть текст: привет|Всему|свету
чтобы в memo паказывылся текст до первой |

[kuzmich]

Сообщение от elagin

Как сделать так штобы , например есть текст: привет|Всему|свету
чтобы в memo паказывылся текст до первой |

что значит до первой? ты по понятнее объясни, что хочешь?

[pu4koff]

например, функцией pos определяешь первое вхождение этого символа в строку и копируешь в мемо не всю строку, а от первого символа, до найденного индекса

[elagin]

Сообщение от kuzmich

что значит до первой? ты по понятнее объясни, что хочешь?

ну смотри.
Есть тестовый файл 1.txt. в этом файле запись:

М@Х.RU|www.max.ru/web|www.max.ru/cgi-bin/links/add.cgi|CY: Каталог содержит 501 сайт (май 2000) в 16 тематических разделах. Поиск, рейтинг, сайт дня, рассылка|
как зделать штобы memo отображало только "М@Х.RU" т.е до первой |

[ZhekON]

находиш первый символ, копируеш строку, запоминаеш номер символа после этого символа, находиш второй символ, копируеш от того что мы запомнили до этого, опять жэ запоминаеш номер следуещего символа, и повторяеш эту процедуру до EOF(твой файл)
Времени нету писать код, думаю розберёшся и с этим Удачи!

[pu4koff]

а вообще зачем это надо? Нафиг мемо для отображения одной строки? да и думаеца мне остальные записи тоже понадобятся...

[elagin]

Сообщение от ZhekON

находиш первый символ, копируеш строку, запоминаеш номер символа после этого символа, находиш второй символ, копируеш от того что мы запомнили до этого, опять жэ запоминаеш номер следуещего символа, и повторяеш эту процедуру до EOF(твой файл)
Времени нету писать код, думаю розберёшся и с этим Удачи!

Напиши пожалуйста, если не трудно, а то неразбирусь не как

[pu4koff]

точно не помню уже работу с файлами, но что-то в этом роде:
var
f: textfile;
s: string;
c: char;
begin
assign(f,'C:\123.txt');
reset(f);
s := '';
while (not eof(f)) do
begin
read(f,c,1);
if (c = '|')then break;
s := s + c;
end;
close(f);
end;
соответственно в s будет первая строка

[ZhekON]

или для всего файла

s: Tstrings;
d: integer;

d:=0;
for i:=1 to sizeof(file) do
begin
read(f,c,1)
if (c = '|') then
d:=d+1;
s[d] := s[d] + c;
end;