Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Text ===> Tabelle (https://www.delphipraxis.net/3237-text-%3D%3D%3D-tabelle.html)

Mick 2. Mär 2003 18:32


Text ===> Tabelle
 
kann mir einer helfen ich suche ne möglichkeit einen Text in eine tabelle einzulesen.

was kann ich denn am besten für die tabelle nehem wo ich meine daten anzeigen möchte?
es soll so ähnlich wie ein editor sein aber es geht erst mal nur um den text in die tabelle einzulese/anzuzeigen und auszudrucken.


Mick

Gast 2. Mär 2003 18:36

Ich würde es mit einem StringGrid versuchen!! Zum Ausdrucken kenne ich keine Funktion!

Daniel B 2. Mär 2003 18:36

Hallo,

das geht sehr einfach mit einer ListView, oder ListBox.
Seh Dir noch folgende sachen in der OH an:
LoadFromFile, SaveToFile.

Grüsse, Daniel :hi:

Mick 2. Mär 2003 19:03

danke werd ich gleich mal ausprobieren,

wünsch noch allen einen schönen abend :party:
ich werd heute noch ein wenig :coder:
und heut nacht evt noch mal ein wenig :dancer:

Mick 2. Mär 2003 21:10

ok, :oops:
ich habe da ein kleines unklar.

wie weise ich denn den text/zahl die ich einlesen will der entsprechenden koordinate zu?

bzw wie lese ich das denn algemein ein da habe ich einiges an unklarheiten...

Daniel B 2. Mär 2003 21:18

Dann sag uns doch erstmal was Du für Komponenten benutzt. Sonst muss man ja nur Raten.

Grüsse, Daniel :hi:

Mick 2. Mär 2003 21:26

autsch :lol:

ich versuche es mit nem stringgrid.

Maa83 3. Mär 2003 08:48

Hi,
ich geb dir hier mal nen Quellcode mit dem du was anfangen kannst
Ist ziemlich schludrig programmiert... sonst hast du ja gar nix zu tun

Code:
procedure TForm1.Button1Click(Sender: TObject);
var dat: TextFile;
    a : String;
    i : Integer;
begin
    assignFile(dat, 'd:\test.txt'); //Damit du nicht immer den ganzen Pfad angeben musst
    Reset(dat); //Öffnet eine vorhandene Datei
    i := 0;
    while not eof(dat) do begin //Solange dateiende nicht erreicht
        readln(dat,a); //einlesen zeile für zeile in var a
        StringGrid1.Cells[i,0] := a; //Zelle i,0 den wert a zuweisen
        inc(i); //i erhöhen
    end;
    CloseFile(dat); //Datei wieder schliessen
end;
hoffe das hilft dir was. Jetzt musst du dir halt noch überlegen wie du das Grid füllen möchtest und die Spalten und Zeilen-Zahl anpassen...

gruß maa

Mick 3. Mär 2003 10:30

danke Maa das hilft mir weiter :D


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:33 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz