[elagin]

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

[Vlastelin Delphi]

А это для чего тебе такое извращение нужно то?

[Денис]

просто поиск организовал по всем строкам до первого '|' а потом выводишь все предыдущие строки и текущую строку до этого символа

[elagin]

Сообщение от Денис

просто поиск организовал по всем строкам до первого '|' а потом выводишь все предыдущие строки и текущую строку до этого символа

Каким способом? а то хрен разобрался;(

[Денис]

всего строк

Код:

memo1.Lines.Count

длина строки

Код:

length(memo1.Lines[номер строки])

символ

Код:

memo1.lines[номер строки][номер символа в строке]

учти первая строка имеет номер 0
надеюсь этого хватит =)

[Денис]

держи исходник

[mav_c]

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

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

На тебе универсальную. Я её всегда юзаю:
function PolStr(s : string;n : integer;c : Char) : string;
var
i,count,nac,kol : integer;
sbor : boolean;
begin
if n = 1 then sbor := true else sbor := false;
count := 0;nac := 0; kol := 1;

for i := 0 to length(s)+1 do
begin
if sbor then
begin
if s[i] = c then break else count := count + 1;
Continue;
end;
nac := nac + 1;
if s[i] = c then
begin
kol := kol + 1;
if kol = n then sbor := true;
end;
end;
if n = 1 then Result := Copy(s,nac,count-1) else Result := Copy(s,nac,count);
end;

Первым параметром строка, вторым номер выделяемой части в твоём случае 1 третий - символ разделитель у тебя - '|'