Skocz do zawartości
Zaloguj się, aby obserwować  
miduraa11

Sortowanie dwóch Memo do Tablicy

Polecane posty

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ź!

Udostępnij ten post


Link to postu
Udostępnij na innych stronach

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Gość
Odpowiedz...

×   Wklejony jako tekst z formatowaniem.   Przywróć formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Twój link będzie automatycznie osadzony.   Wyświetlać jako link

×   Twoja poprzednia zawartość została przywrócona.   Wyczyść edytor

×   Nie możesz wkleić zdjęć bezpośrednio. Prześlij lub wstaw obrazy z adresu URL.

Wczytywanie...
Zaloguj się, aby obserwować  

×
×
  • Utwórz nowe...