Avatar billede janbb Juniormester
02. juli 2003 - 13:16 Der er 1 kommentar og
1 løsning

for Cnt lig 0 to DBMemo1.Lines.Count-1 do

Har et databaseprogram med et memofelt.Teksten i memofelterne kæder jeg

sammen enten 'i hånden' eller via et lidt snørklet program, som jeg fra tid til anden

har spekuleret på hvorvidt det kunne gøres anderledes.Aktuelt er der faktisk kun 4

records i databasen, hvor rækkefølgen de listes i styres af index-feltet 'name' og

hvis indhold jeg derfor bruger alfabetet til at dirigere med: aktuelt

u,v,x,z.Memofelterne har navnet 'genvej.Den metode jeg har brugt indtil nu er: via

et sql-query-program (jeg ikke selv har lavet) at liste filerne (der er af htm-type) i

MS-Explorer v.hj.a. en kommando som fx "select genvej from mintabel".Derfter får

jeg vist kilde og gemmer filen.
Jeg vil altaa gerne samle teksten fra memofelterne fra databasen i een tekst (i en

rækkefølge givet af deres rækkefølge i databasen).Kan det gøres smartere?Evt gerne gemme det i en tekstfil (med typebetegnelse htm) i eet hug.
Avatar billede martinlind Nybegynder
02. juli 2003 - 17:49 #1
VAR
  Cnt : Integer;
  L : TStringList;

begin
  L := TStringList.Create;
  Table1.First;
  while not Table1.eof do
  begin
      L.Text := L.Text + DbMemo1.Lines.Text;
      table1.next;
  end;
  L.SaveToFile('MyFile.htm');
  L.Free;
end;


Noget i denne stil

/Martin
Avatar billede janbb Juniormester
02. juli 2003 - 20:56 #2
Tusind tak.Det virker upåklageligt.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester