Delphi, string z memo do tablicy ?

BBsrv OP · 03-04-2014 23:42

Helloł, tak pisze sobię spamera i kminię jak tu z tekstu z memo zrobić tablicę, tak by każda nowa linijka to był kolejny rekord.

mam sobie memo a w nim
Abix Trungery
Acaneimu Arch
Adwenson
Albert Sherman
Albin Bror
Alees Seth
Alihancko
Aludurana
Amena Witch
Americtor
Angel Of Disease

jedno pod drugim, jak to teraz ubrać w tablicę tak, żebym każdy nick miał w kolejnym elemencie tablicy czyli
x[0]:='Abix Trungery';
x[1]:='Acaneimu Arch';
x[2]:='Adwenson';

i tak dalej i tak dalej ( po prostu wklejam sobie listę postaci z tibja.kom i mam z tego tablicę z listą postaci =D

(wygląd stringa z memo to chyba tekst<enter>tekst<enter>tekst)

konto usunięte · 03-04-2014 23:51

O ile dobrze pamiętam (pisałem w Delphi >5 lat temu), memo było kontrolka textowa, oraz miała właściwość Lines.

//pseudocode on
for (int i = 0; i < 100; ++i)
{
memo.Lines[i] = "asdf";
}
//pseudocode off

Bazan · 03-04-2014 23:55

On chce odwrotna sytuacje.

//pseudocode on
tablica[255]:string
for (int i= 0; i< memo.countLines; i++)
{
tablica[i] = memo.Lines[i].text;
}
//pseudocode off

Nie pamietam oczywiscie nazw konkretnych, ale z tym juz sobie poradzisz :P

:)

BBsrv OP · 04-04-2014 00:15

dobra, mam takie coś

Kod :

var
tablica : array[1..500] of string;
i:integer;
begin
for i:= 1 to memo1.lines.count
do
tablica[i]:= memo1.Lines[i];
ShowMessage(tablica[i]+'test')
end;

ale kurde nie wywala mi tego co mam w memo ; (

konto usunięte · 04-04-2014 00:18

tablica[i]:= memo1.Lines[i].Text; //albo text
ShowMessage(tablica[i]+'test')

BBsrv OP · 04-04-2014 00:23

szulak napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

tablica[i]:= memo1.Lines[i].Text; //albo text
ShowMessage(tablica[i]+'test')

[Error] Unit1.pas(34): Record, object or class type required

według googla, memo.lines[numer_lini_do_odczytania] czyli tak jak mam ;/

Absherr · 04-04-2014 00:41

A delphi nie jest przypadkiem case sensitive?

Kod :

for i:= 1 to memo1.lines.count

vs

Kod :

tablica[i]:= memo1.Lines[i];

@BBsrv ;
A jak dasz tak?

Kod :

var
tablica : array[1..500] of string;
i:integer;
begin
for i:= 1 to memo1.lines.count
do
ShowMessage(memo1.Lines[i]);
end;

BBsrv OP · 04-04-2014 00:43

Absherr napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

A delphi nie jest przypadkiem case sensitive?

Kod :

for i:= 1 to memo1.lines.count

vs

Kod :

tablica[i]:= memo1.Lines[i];

nie ma różnicy ;p

Absherr napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

@BBsrv ;
A jak dasz tak?

Kod :

var
tablica : array[1..500] of string;
i:integer;
begin
for i:= 1 to memo1.lines.count
do
ShowMessage(memo1.Lines[i]);
end;

no fakt, tak działa, bez użycia tablicy, dzięki @Absherr ;

Kod :

var
i:integer;
begin
for i:= 0 to memo1.lines.count-1
do
ShowMessage(memo1.Lines[i]);
end;

Lord Premium · 04-04-2014 16:03

for i:=0 to memo1.lines.count-1 daj

BBsrv OP · 04-04-2014 16:10

LordCompi napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

for i:=0 to memo1.lines.count-1 daj

nie wiem czy wiesz, ale nad Twoim postem właśnie tak dałem XD

Bazan · 04-04-2014 17:01

BBsrv napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

dobra, mam takie coś

Kod :

var
tablica : array[1..500] of string;
i:integer;
begin
for i:= 1 to memo1.lines.count
do
tablica[i]:= memo1.Lines[i];
ShowMessage(tablica[i]+'test')
end;

ale kurde nie wywala mi tego co mam w memo ; (

Tutaj jest błąd.

Z tego co pamiętam, to powinienes miec chyba po
for ... do

zrobic
for ... do
begin
...
endl;

Bo wyszlo na to, ze przepisales wszystko do tablicy, i pozniej tylko raz wyswietlasz tablice, z blednym adresem, bo zmienna i juz nie istnieje (wyszedles z petli ktora skladala sie z 1 instrukcji)

Przepisz tak:

Kod :

var
tablica : array[1..500] of string;
i:integer;
begin
for i:= 1 to memo1.lines.count
do
begin
tablica[i]:= memo1.Lines[i];
ShowMessage(tablica[i]+'test');
end;
end;

No chyba ze tak bylo w pascalu a w delphi to zmienili. Nie mam kompilatora to nie sprawdze ;p

BBsrv OP · 04-04-2014 17:18

Bazan napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

Tutaj jest błąd.

Z tego co pamiętam, to powinienes miec chyba po
for ... do

zrobic
for ... do
begin
...
endl;

Bo wyszlo na to, ze przepisales wszystko do tablicy, i pozniej tylko raz wyswietlasz tablice, z blednym adresem, bo zmienna i juz nie istnieje (wyszedles z petli ktora skladala sie z 1 instrukcji)

Przepisz tak:

Kod :

var
tablica : array[1..500] of string;
i:integer;
begin
for i:= 1 to memo1.lines.count
do
begin
tablica[i]:= memo1.Lines[i];
ShowMessage(tablica[i]+'test');
end;
end;

No chyba ze tak bylo w pascalu a w delphi to zmienili. Nie mam kompilatora to nie sprawdze ;p

Zgadza się, działa ^^ lecz wystarczy mi jednak :

Kod :

var
i:integer;
begin
for i:= 0 to memo1.lines.count-1
do
ShowMessage(memo1.Lines[i]);
end;

stwierdziłem, żę tablica jakoś za specjalnie nie jest mi potrzebna, ale dzięki ; )

Temat: Delphi, string z memo do tablicy ?

Narzędzia tematu

Oceń ten temat

Delphi, string z memo do tablicy ?

Informacje o temacie

Użytkownicy przeglądający temat

Podobne tematy

[Delphi][Poszukiwany/Poszukiwana] C++ -> Delphi , struktura containerów w tibii

Losowanie punktu(x,y) z tablicy -> C#

[Delphi 7] Potrzebna pomoc w pobieraniu wartości..

C++ Delphi Java PHP

Program Baza danych Delphi - pomoc

Zakładki

Zakładki

Zasady postowania