Dwie sprawy:
1.) Jak zrobić żeby tekst (odczytany z pliku) w memo pojawił się w pierwszej linii.
tojest źródło - może coś zmienicie:
if opendialog1.Execute then
begin
assignfile(plik,opendialog1.filename);
reset(plik);
while not(eof(plik)) do
begin
readln(plik,linia[i]);
memo1.lines.add(linia[i]);
i:=i+1;
end;
closefile(plik);
end;
2.)jak policzyć linie w memo???
Dwie sprawy:
1.) Jak zrobić żeby tekst (odczytany z pliku) w memo pojawił się w pierwszej linii.
nie zabardzo rozumiem - pierwsza linia w pliku ma sie pojawic w pierwszej linii memo, czy caly plik ma byc w pierwszej linii?
Jesli to pierwsze, to albo robisz petle while po calym pliku, zwiekszajac zmienna I i sprawdzasz, jesli I = 1 to znaczy ze jest przy pierwszej linii i wtedy ta nas interesuje.
Jesli zas to drugie rozwiazanie, to popierwsze wylaczasz wordwarp, po drugie pobierasz w petli while do zmiennej typu string, za kazdym razem dopisujac (nie nadpisujac!) i juz poza petla dajesz Memo1.Lines.Add(zmienna_string);
tojest źródło - może coś zmienicie:
2.)jak policzyć linie w memo???
teraz wymyslilem, a ze mialem format niedanwo to jeszcze delphi nie mam wiec nie moge sprawdzic :-/.
var i : integer;
str : string;
begin
for i:=0 to Memo1.Lines.Count-1 do begin
str := str + Memo1.Lines[i];
end;
Memo1.Lines.Clear;
Memo1.Lines.Add(str);
end;
[<font color="blue">dopisane</span>]:
pomylka, sorki, myslalem ze tam pisze 'jak polaczyc linie w memo', a jesli policzyc to bardzo prosto - Memo1.Lines.Count;
1.) Jak zrobić żeby tekst (odczytany z pliku) w memo pojawił się w pierwszej linii.
We właściwościach memo
wordWrap = false
Scrollbars = ssBoth
2.)jak policzyć linie w memo???
memo.lines.count
:-[
nie bede cie bluzgal Juhas, ale nie dosc ze kilka godzin pozniej, to w polowie kopiujesz to co napisalem, nie mowiac juz ze to co piszesz odnosnie pkt.1 nie zadziala (pierwszy raz widze by scrollbar i wylaczony wordwarp wywalal automatycznie znak nowej linii).
sdzięki roszi - chodziło mi o to żeby było każdy w jednej lini. tkank's
a może wiesz jak wyczyścić memo. bo memo1.text:=' '; działa ale potem przy zapisie zapisuje w drugiej lini.
a - jak ustawić się w memo w jakiejś lini...
sdzięki roszi - chodziło mi o to żeby było każdy w jednej lini. tkank's
a może wiesz jak wyczyścić memo. bo memo1.text:=' '; działa ale potem przy zapisie zapisuje w drugiej lini.
a - jak ustawić się w memo w jakiejś lini...
wyczyscic memo - Memo1.Lines.Clear;
hmmm, ustawic sie w memo w jakiejs linii... chodzi Ci o pozycje kursora, czy edycje ktorejs linii? Jesli to pierwsze to sam kiedys tego potrzebowalem i robilem Memo1.Lines[numer_linii].Add(''); ale to dzialalo tak sobie, jesli zas chodzi ci o to drugie (dostep do poszczegolnych linii) to robisz to np. tak -> Memo1.Lines[3] := 'czwarta linia'; (nie jestem teraz pewien czy jest indeksowane od zera czy od 1).
Generalnie to sa to absolutne podstawy i polecalbym zaznaczyc memo i wcisnac F1, albo wpisanie gdzies w zrodle programu Memo1, postawienie kropki i poczekanie chwilke - ta lista to najlepszy help ;].