Witam ;-)
Dla was pewno błachostka ;-) a wiec pytam
Chce usunąc w Memo powtarzajace sie linie ? jak to zrobic ;-) ;-)
Witam ;-)
Dla was pewno błachostka ;-) a wiec pytam
Chce usunąc w Memo powtarzajace sie linie ? jak to zrobic ;-) ;-)
Do TStringList (ustawionego na ignorowanie powótrek) można przekopiować tekst i ptem z powrotem do Memo.
var
i: integer;
label linie;
begin
i:= 0;
linie:
if i>Memo1.Lines.Count then
else
begin
if Memo1.Lines[i] = Memo1.Lines[i +1] then
Memo1.Lines.Delete(i);
Inc(i);
goto linie;
end;
end;
Nie jestem co do tego pewien :) Tylko po mnie nie krzyczcie. Wiem ze jest to amatorszczyzna ale jestem amatorem.
hm.. jakos nie funkcjonuje ;-)
To przepraszam najmocniej :) A może ktoś wie czemu to nie funkcjonuje???? Sam jestem ciekaw. Aha zapomniałem dodać że to będzie działać przy założeniu że obie powtarzające się linię bedą zaraz pod sobą. Sprawdziłem. Jeżeli tak jest to u mnie działa :)
poza tym czemu nie kożystasz z for... lub chciażby repeat..until ? Widzę że przerzuciłeś się prosto z basic'a na delphi, ale okey. ja też kiedyś zaczynałem. pozdrawiam!
AndRew - ladnie wyjasniles, a moze bys odpowiedzial teraz, lub dal jakis przyklad? ;-) :-)
procedure TForm1.Button1Click(Sender: TObject);
[b]var[/b]
lin,lin2 : integer;
[b]begin[/b]
lin := 0 ;
[b]while[/b] lin
skoki bezwarunkowe są
baaardzo szkodliwe dla funkcjonowania naszego programu, [wydajność
i stabilność]
He?? A mi się zawsze zdawało, że chodzi o przejrzystość kodu i łatwość usuwania błędów w przypadku nieużywania labeli i gotów (:P)
He?? A mi się zawsze zdawało, że chodzi o przejrzystość kodu i łatwość usuwania błędów w przypadku nieużywania labeli i gotów (:P)
Bez urazy.. Jaja se robisz czy na prawde nie wiesz o co chodzi :) Jak nie to chętnie wytłumaczę.
Bez urazy.. Jaja se robisz czy na prawde nie wiesz o co chodzi :) Jak nie to chętnie wytłumaczę.
A wytłumacz co ma Twoim zdaniem goto do wydajności i stabilności...
Do stabilności (błędów) to jak najbardziej. Ale co do wydajności.... Hm....