Rozdzielanie wyrazow w memo

0

Jak zrobic cos takiego hmm... : mam, np. 3 zmienne string i komponent memo. W memo sa linie, np. taka aaa;sss;ddd. I jak zrobic gdy aaa=okno to zrob cos takiego jak showmessage(sss). Mam nadzieje ze jasno sie wyrazilem i znajdzie sie ktos kto mi pomoze. Z gory dzieks!--pozdrawiam PEDROS
Delphi6

0

odpowiedzi poszukaj w archiwum :-)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

znalazlem w archiwum( http://www.4programmers.net/f[...]x.php?action=show&id=1704 )ale bedziesz musial troszke przerobic :-)
a jak nie chce ci sie myslec jak to przerobic to zamieszczam kodzik :-)

var
i: Integer;
S: String;
begin
for i := 0 to Memo1.Lines.Count - 1 do
begin
S := Memo1.Lines[i];
while Pos(';', S) > 0 do
begin
if Copy(S, 1, Pos(';', S)-1) = 'okno' then
begin
Delete(S, 1, Pos(';', S));
ShowMessage(Copy(S, 1, Pos(';', S)-1));
end;
end;
end;
end;
---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

Tez to widzialem ale nie mialem pojecia wlasnie jak to przerobic. Ale dzieki za kod {browar} --pozdrawiam PEDROS
Delphi6

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0