Ĺadny brzuch
Jak mogę zamienić wybrane litery w całej treści kompontu Memo. Np: A na Ą
var Licznik : Integer; Litera : Integer = 1; Default : Char = 'A'; Change: Char = 'Ą'; TEMP_LINE : String; ... for Licznik := 1 to Form1.ListBox1.Count do //Jakby wywalało błąd to dodaj - 1 przy Count begin TEMP_LINE := Form1.ListBox1.Items.Strings[Licznik]; while Litera <= Length(TEMP_LINE) do begin Litera := Pos(Default,TEMP_LINE); if Litera = 0 then Continue else begin TEMP_LINE[Litera] := Change; Form1.ListBox1.Items.Delete(Licznik); Form1.ListBox1.Items.Insert(Licznik,TEMP_LINE) end; end; end;
Powinno działać, jak oczymś nie zapomniałem :)
//POMYŁKA - POMYŁKA - To miało być Memo a nie ListBox. Sorry :excl:
////Ale w Memo możesz zrobić to samo tylko sprawdzaj w Line a nie w Items :)
Użytkownik mariuszlorenc edytował ten post 26 sierpień 2005, 08:09
~
Wieelkieee dzieeki
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
var Licznik : Integer; Litera : Integer = 1; Default : Char = 'A'; Change: Char = 'Ą'; TEMP_LINE : String; ... for Licznik := 1 to Form1.ListBox1.Count do //Jakby wywalało błąd to dodaj - 1 przy Count begin TEMP_LINE := Form1.ListBox1.Items.Strings[Licznik]; while Litera <= Length(TEMP_LINE) do begin Litera := Pos(Default,TEMP_LINE); if Litera = 0 then Continue else begin TEMP_LINE[Litera] := Change; Form1.ListBox1.Items.Delete(Licznik); Form1.ListBox1.Items.Insert(Licznik,TEMP_LINE) end; end; end;
Powinno działać, jak oczymś nie zapomniałem :)
//POMYŁKA - POMYŁKA - To miało być Memo a nie ListBox. Sorry :excl:
////Ale w Memo możesz zrobić to samo tylko sprawdzaj w Line a nie w Items :)
Użytkownik mariuszlorenc edytował ten post 26 sierpień 2005, 08:09
~
Wieelkieee dzieeki