Zapisywanie combobox do memo w kolumnach

0

Mam dwa combobox i dwa edity oraz memo potrzebuję zapisać zawartość combobox i edit do memo tak , aby utworzyły sie kolumny(wyrównane do lewej) niezależnie od długości ciągu zmaków wpisanych combobox i edit.

0

licz dlugosc tekstu w znakach. jesli za malo, dodawaj sopacje, jesli za duzo obetnij :)
mozesz tez szukac najdluzszego ciagu i do niego wyrownywac, potem wstawaisz znak np"|" i wyisujesz druga kolumne juz normalnie

ps. najlepiej ustaw czcionke courier new, bedzie lepiej widoczne.
jesli uzywasz innej to mozesz liczyc dlugiosc w pikselach a nie w znakach

0

memo nie nadaje się do robienia kolumn... może spróbuj TListView

0

Jak nie działa, nie dostałeś nawet kodu, a krzyczysz że nie działa - bo nie zrealizowałeś idei pomysłodawcy. Lepsze byłoby tu użycie ListView, ale jak chcesz koniecznie memo, to przede wszystkim ustaw czcionke na taką, której znaki są równej długości (np. Courier). Tu masz jeszcze fragment kodu:

  if length(s) > 10 then s := copy(s, 1, 10) else
    if length(s) < 10 then
      for i := 1 to 10 - length(s) do s := s + ' ';
0

Ja tutaj może zaproponuję użycie funkcji StringOfchar do generowania tych spacji, bo pętla jest cokolwiek nieelegancka. No i, oczywiście, polecam wywalenie TMemo i zastapienie go TListView.

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