Ĺadny brzuch
Potrzebny mi kod źródłowy do programu do wstawiania pionowych opisów na gg !!
Nie wiem czy znajdziesz, ale to chyba nie jest trudne wstawić znak #13#10 do treści opisu? Bo tak to właśnie działa. Nie wiem tylko, bo może to być samo #10 albo samo #13. Bynajmniej wejdź do gadu-gadu potem do menu i wybierz Wyślij proram. Tam są takie czarne dośc rzucające sie w oczy pionowe kreski - one właśnie powodują złamanie tekstu i przejscie do nastepnej linii.
Tyle to ja wiem. Ale jak wykryć koniec lini i wstawić #13 ?? No może pełny kod ??
jasne.
var ts:TStringList; i:integer; t:string; begin ts:=TStringList.Create; ts.text:=_tekst_opisu_ for i:=0 to ts.count-1 do t:=t+ts.strings[i]+#13#10; ts.free;
Użytkownik migajek edytował ten post 24 maj 2005, 15:21
Dzięki migajek, ale coś mi nie działa - jak to wykorzystać, mając Edita, Memo i Button??
Czyli wpisuję w memo tekst, a w edicie mi pokazuje go, gdzie każda linijka jest oddzielona #13
Zrób specjalny znak np. | i wtedy:
for i:= 1 to length(edit1.Text) do if edit1.Text[i]='|' then edit.Text[i]:= #13;
PS. chyba o to ci chodzi?
Zrób specjalny znak np. | i wtedy:
NIE DZIAŁA!!
Może ktoś to napisać i przetesować?? Nie mogę skopiować do schowka, bo trktuje znak #13 jako enter, a można wkleić tylko jedną linijke !!
Użytkownik pawkow edytował ten post 25 maj 2005, 13:21
Traktuje tak bo znak #13 to jest właśnie enter! Więc jak chcesz to traktować inaczej?
sprawdzilem, znak odstepu w opisie GG to znak #10. Wiec kod powinien dzialac.
Czyli oddzielać telinijki znakiem #13 czy #10 ?? Migajek, tylko ty możesz mi pomóc :!:
oddzielac znakiem #10.
wrzuc se na forme memo (nazwa:memo1) edit (nazwa:edit1) i jakiegos buttona. W onclick buttona wpisz:
var s:string; i:integer; begin for i:=0 to memo1.Lines.Count do s:=s+memo1.Lines[i]+#10; edit1.Text:=s;
W ten sposob w memo se wpisujesz tekst wieloliniowy, a w edicie otrzymujesz gotowy do gg.
Wielkie dzięki migajek !! Działa!!
Tylko na końcu daje 2x # 10 jak zrobić żeby 1 x było ??
var s:string; i:integer; begin for i:=0 to memo1.Lines.Count-1 do if not i=memo1.lines.count-1 then s:=s+memo1.Lines[i]+#10; edit1.Text:=s;
A po co Edit?
Nie lepiej odrazu do schowka?
ClipBoard.AsText:= s;
Do uses dodaj Clipbrd
Użytkownik kAzek edytował ten post 25 maj 2005, 19:37
A po co Edit?
Nie lepiej odrazu do schowka?
Kod migajka działa. Oczywiście trzeba zadeklarować modół ClipBoard ?? czy coś w tym stylu?
Dzięki...
Użytkownik pawkow edytował ten post 26 maj 2005, 04:24
Kod migajka działa. Oczywiście trzeba zadeklarować modół ClipBoard ?? czy coś w tym stylu?
Dzięki...
oki, ale tendróhgi kod mi nie działa, a ten pierwszys pozostawia dwa #10 na końcu... Jak sie ich pozbyć?
oki, ale tendróhgi kod mi nie działa, a ten pierwszys pozostawia dwa #10 na końcu... Jak sie ich pozbyć?
Jak zrobiłam tak :
var s:string; i:integer; begin for i:=0 to memo1.Lines.Count -1 do s:=s+memo1.Lines[i]+#10; edit1.Text:=s; end;
to działa i jest tylko na końcu :D a jak zrobić zeby nie było wcale bo jak dałem tak:
var s:string; i:integer; begin for i:=0 to memo1.Lines.Count -2 do s:=s+memo1.Lines[i]+#10 + memo1.Lines[i +1]; edit1.Text:=s; end;
to to nie działa :( :P
var s:string; i:integer; begin Edit1.clear; for i:=0 to memo1.Lines.Count do s:=s+memo1.Lines[i]+#10; Delete(S, Length(S)-1, 2); edit1.Text:=s; end;
I mi działa
Mnie też działa dzięki :D
Spoko, a jakiś konkretny programik piszesz ?? Może się do mojego dzieła przyłączysz?? Tylko pogadam z kumplami :):)
Bawie sie w komunikator gg z botem :D a co wy robicie???
To co ja robie, to tajemnica,która zostanie ujawniona dopiero za ... (...) jak skończe :):)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Nie wiem czy znajdziesz, ale to chyba nie jest trudne wstawić znak #13#10 do treści opisu? Bo tak to właśnie działa. Nie wiem tylko, bo może to być samo #10 albo samo #13. Bynajmniej wejdź do gadu-gadu potem do menu i wybierz Wyślij proram. Tam są takie czarne dośc rzucające sie w oczy pionowe kreski - one właśnie powodują złamanie tekstu i przejscie do nastepnej linii.
Tyle to ja wiem. Ale jak wykryć koniec lini i wstawić #13 ?? No może pełny kod ??
jasne.
var ts:TStringList; i:integer; t:string; begin ts:=TStringList.Create; ts.text:=_tekst_opisu_ for i:=0 to ts.count-1 do t:=t+ts.strings[i]+#13#10; ts.free;
Użytkownik migajek edytował ten post 24 maj 2005, 15:21
Dzięki migajek, ale coś mi nie działa - jak to wykorzystać, mając Edita, Memo i Button??
Czyli wpisuję w memo tekst, a w edicie mi pokazuje go, gdzie każda linijka jest oddzielona #13
Zrób specjalny znak np. | i wtedy:
for i:= 1 to length(edit1.Text) do if edit1.Text[i]='|' then edit.Text[i]:= #13;
PS. chyba o to ci chodzi?
Zrób specjalny znak np. | i wtedy:
NIE DZIAŁA!!
Może ktoś to napisać i przetesować?? Nie mogę skopiować do schowka, bo trktuje znak #13 jako enter, a można wkleić tylko jedną linijke !!
Użytkownik pawkow edytował ten post 25 maj 2005, 13:21
Traktuje tak bo znak #13 to jest właśnie enter! Więc jak chcesz to traktować inaczej?
sprawdzilem, znak odstepu w opisie GG to znak #10. Wiec kod powinien dzialac.
Czyli oddzielać telinijki znakiem #13 czy #10 ?? Migajek, tylko ty możesz mi pomóc :!:
oddzielac znakiem #10.
wrzuc se na forme memo (nazwa:memo1) edit (nazwa:edit1) i jakiegos buttona. W onclick buttona wpisz:
var s:string; i:integer; begin for i:=0 to memo1.Lines.Count do s:=s+memo1.Lines[i]+#10; edit1.Text:=s;
W ten sposob w memo se wpisujesz tekst wieloliniowy, a w edicie otrzymujesz gotowy do gg.
Wielkie dzięki migajek !! Działa!!
Tylko na końcu daje 2x # 10 jak zrobić żeby 1 x było ??
var s:string; i:integer; begin for i:=0 to memo1.Lines.Count-1 do if not i=memo1.lines.count-1 then s:=s+memo1.Lines[i]+#10; edit1.Text:=s;
A po co Edit?
Nie lepiej odrazu do schowka?
ClipBoard.AsText:= s;
Do uses dodaj Clipbrd
Użytkownik kAzek edytował ten post 25 maj 2005, 19:37
A po co Edit?
Nie lepiej odrazu do schowka?
Kod migajka działa. Oczywiście trzeba zadeklarować modół ClipBoard ?? czy coś w tym stylu?
Dzięki...
Użytkownik pawkow edytował ten post 26 maj 2005, 04:24
Kod migajka działa. Oczywiście trzeba zadeklarować modół ClipBoard ?? czy coś w tym stylu?
Dzięki...
oki, ale tendróhgi kod mi nie działa, a ten pierwszys pozostawia dwa #10 na końcu... Jak sie ich pozbyć?
oki, ale tendróhgi kod mi nie działa, a ten pierwszys pozostawia dwa #10 na końcu... Jak sie ich pozbyć?
Jak zrobiłam tak :
var s:string; i:integer; begin for i:=0 to memo1.Lines.Count -1 do s:=s+memo1.Lines[i]+#10; edit1.Text:=s; end;
to działa i jest tylko na końcu :D a jak zrobić zeby nie było wcale bo jak dałem tak:
var s:string; i:integer; begin for i:=0 to memo1.Lines.Count -2 do s:=s+memo1.Lines[i]+#10 + memo1.Lines[i +1]; edit1.Text:=s; end;
to to nie działa :( :P
var s:string; i:integer; begin Edit1.clear; for i:=0 to memo1.Lines.Count do s:=s+memo1.Lines[i]+#10; Delete(S, Length(S)-1, 2); edit1.Text:=s; end;
I mi działa
Mnie też działa dzięki :D
Spoko, a jakiś konkretny programik piszesz ?? Może się do mojego dzieła przyłączysz?? Tylko pogadam z kumplami :):)
Bawie sie w komunikator gg z botem :D a co wy robicie???
To co ja robie, to tajemnica,która zostanie ujawniona dopiero za ... (...) jak skończe :):)