Jump to content
Sign in to follow this  
miduraa11

Sortowanie dwóch Memo do Tablicy

Recommended Posts

Witam

Na sam początek zapytam się czy to jakiś problem, że tak co chwilę otwieram nowy temat? :)

Mam takie coś.. Dwa memo, w jednym liczba w drugim jej dzielniki (od 1 do 11) i chcę to wszystko zapisać do pliku posortowane względem ilości dzielników.

Pomyślałem o tym żeby najpierw posortować to wszystko do tablicy i dopiero do pliku

var
 i, j, liczbaDziel, dl_memo1 : integer;
 Tablica :  array of array of String;
 tekst : string;
begin
dl_memo1 := Memo1.Lines.Count - 1;
SetLength(Tablica, 2, dl_memo1);
j:=0;
for liczbaDziel:=10 downto 0 do
	begin
         	for i:=0 to dl_memo1 do
             	begin
               	tekst := Memo2.Lines[i];
               	if ((length(tekst) div 2) + 1 = liczbaDziel) then	// (length(tekst) div 2) + 1 mówi mi o ilosci dzielnikow
               	begin                                                 	// wszystkich dzielnikow jest 11 ale zadna liczba nie bedzie miala
        				Tablica[0,j] := Memo1.Lines[i];                      // wszystkich dlatego od liczbaDziel = 10 (chociaz i tak zadna nie
        				Tablica[1,j] := Memo2.Lines[i];                      // bedzie miala chyba 10 w takim przedziale)
        				j:=j+1;
               	end;
             	end;
	end;
 

Niestety coś to nie działa.. Ktoś pomoże z tym?

I drugie od razu pytanie.

Jak zapisać taką Tablicę do pliku za pomocą OpenDialog?

Przyciskam przycisk 'Zapisz' tworzy mi tę tablice sortuje wszystko i tylko wybieram miejsce i nazwę pliku do zapisu.

Z góry bardzo dziękuję za odpowiedź!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...