Kasowanie powtarzających się linii

0

Witam ;-)

Dla was pewno błachostka ;-) a wiec pytam

Chce usunąc w Memo powtarzajace sie linie ? jak to zrobic ;-) ;-)

0

Do TStringList (ustawionego na ignorowanie powótrek) można przekopiować tekst i ptem z powrotem do Memo.

0

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.

0

hm.. jakos nie funkcjonuje ;-)

0

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 :)

0

var
i: integer;
label linie; { jej, jej, jej! czasy skoków bezwarunkowych juz dość dawno odeszły do lamusa, więc jeżeli nie
trzeba z nich kokoRZystaćystać to tego nie róbmy! (skoki bezwarunkowe są
baaardzo szkodliwe dla funkcjonowania naszego programu, [wydajność
i stabilność] }
begin
i:= 0;
linie:
if i>Memo1.Lines.Count then
else
begin
if Memo1.Lines[i] = Memo1.Lines[i +1] then {w tym momencie nam sie programik wysypie poniewarz jeżeli
i = Memo1.Lines.Count i gdy dodamy do tego jeszcze 1, to odwołamy
się do linii której nie ma }
Memo1.Lines.Delete(i);
Inc(i);
goto linie;
end;
end;

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!

0

AndRew - ladnie wyjasniles, a moze bys odpowiedzial teraz, lub dal jakis przyklad? ;-) :-)

0

procedure TForm1.Button1Click(Sender: TObject);
[b]var[/b]
lin,lin2 : integer;
[b]begin[/b]
lin := 0 ;
[b]while[/b] lin

0

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)

0

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ę.

0

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...

0

Do stabilności (błędów) to jak najbardziej. Ale co do wydajności.... Hm....

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